home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / QuickTimeComponents.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  157.1 KB  |  5,630 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        QuickTimeComponents.a
  3. ;
  4. ;    Contains:    QuickTime Interfaces.
  5. ;
  6. ;    Version:    Technology:    QuickTime 2.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1990-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__QUICKTIMECOMPONENTS__') = 'UNDEFINED' THEN
  19. __QUICKTIMECOMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  25.     include 'MixedMode.a'
  26.     ENDIF
  27.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  28.     include 'Components.a'
  29.     ENDIF
  30.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  31.     include 'ImageCompression.a'
  32.     ENDIF
  33.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  34.     include 'Movies.a'
  35.     ENDIF
  36.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  37.     include 'Quickdraw.a'
  38.     ENDIF
  39.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  40.     include 'Video.a'
  41.     ENDIF
  42.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  43.     include 'Sound.a'
  44.     ENDIF
  45.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  46.     include 'QuickTimeMusic.a'
  47.     ENDIF
  48.  
  49.  
  50. clockComponentType                EQU        'clok'
  51. systemTickClock                    EQU        'tick'                ; subtype: 60ths since boot        
  52. systemSecondClock                EQU        'seco'                ; subtype: seconds since 1904        
  53. systemMillisecondClock            EQU        'mill'                ; subtype: 1000ths since boot        
  54. systemMicrosecondClock            EQU        'micr'                ; subtype: 1000000ths since boot    
  55.  
  56. kClockRateIsLinear                EQU        1
  57. kClockImplementsCallBacks        EQU        2
  58. ; * These are Clock procedures *
  59. ;
  60. ; pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  61. ;
  62.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  63.         Macro
  64.         _ClockGetTime
  65.             move.l              #$00040001,-(sp)
  66.             moveq               #0,D0
  67.             dc.w                $A82A
  68.         EndM
  69.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  70.         IMPORT_CFM_FUNCTION ClockGetTime
  71.     ENDIF
  72.  
  73.  
  74. ;
  75. ; pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  76. ;
  77.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  78.         Macro
  79.         _ClockNewCallBack
  80.             move.l              #$00060002,-(sp)
  81.             moveq               #0,D0
  82.             dc.w                $A82A
  83.         EndM
  84.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  85.         IMPORT_CFM_FUNCTION ClockNewCallBack
  86.     ENDIF
  87.  
  88. ;
  89. ; pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  90. ;
  91.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  92.         Macro
  93.         _ClockDisposeCallBack
  94.             move.l              #$00040003,-(sp)
  95.             moveq               #0,D0
  96.             dc.w                $A82A
  97.         EndM
  98.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  99.         IMPORT_CFM_FUNCTION ClockDisposeCallBack
  100.     ENDIF
  101.  
  102. ;
  103. ; pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  104. ;
  105.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  106.         Macro
  107.         _ClockCallMeWhen
  108.             move.l              #$00100004,-(sp)
  109.             moveq               #0,D0
  110.             dc.w                $A82A
  111.         EndM
  112.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  113.         IMPORT_CFM_FUNCTION ClockCallMeWhen
  114.     ENDIF
  115.  
  116. ;
  117. ; pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  118. ;
  119.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  120.         Macro
  121.         _ClockCancelCallBack
  122.             move.l              #$00040005,-(sp)
  123.             moveq               #0,D0
  124.             dc.w                $A82A
  125.         EndM
  126.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  127.         IMPORT_CFM_FUNCTION ClockCancelCallBack
  128.     ENDIF
  129.  
  130. ;
  131. ; pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  132. ;
  133.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  134.         Macro
  135.         _ClockRateChanged
  136.             move.l              #$00040006,-(sp)
  137.             moveq               #0,D0
  138.             dc.w                $A82A
  139.         EndM
  140.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  141.         IMPORT_CFM_FUNCTION ClockRateChanged
  142.     ENDIF
  143.  
  144. ;
  145. ; pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  146. ;
  147.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  148.         Macro
  149.         _ClockTimeChanged
  150.             move.l              #$00040007,-(sp)
  151.             moveq               #0,D0
  152.             dc.w                $A82A
  153.         EndM
  154.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  155.         IMPORT_CFM_FUNCTION ClockTimeChanged
  156.     ENDIF
  157.  
  158. ;
  159. ; pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  160. ;
  161.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  162.         Macro
  163.         _ClockSetTimeBase
  164.             move.l              #$00040008,-(sp)
  165.             moveq               #0,D0
  166.             dc.w                $A82A
  167.         EndM
  168.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  169.         IMPORT_CFM_FUNCTION ClockSetTimeBase
  170.     ENDIF
  171.  
  172. ;
  173. ; pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  174. ;
  175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  176.         Macro
  177.         _ClockStartStopChanged
  178.             move.l              #$00080009,-(sp)
  179.             moveq               #0,D0
  180.             dc.w                $A82A
  181.         EndM
  182.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  183.         IMPORT_CFM_FUNCTION ClockStartStopChanged
  184.     ENDIF
  185.  
  186. ;
  187. ; pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  188. ;
  189.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  190.         Macro
  191.         _ClockGetRate
  192.             move.l              #$0004000A,-(sp)
  193.             moveq               #0,D0
  194.             dc.w                $A82A
  195.         EndM
  196.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  197.         IMPORT_CFM_FUNCTION ClockGetRate
  198.     ENDIF
  199.  
  200.  
  201.  
  202.  
  203.  
  204. StandardCompressionType            EQU        'scdi'
  205. StandardCompressionSubType        EQU        'imag'
  206.  
  207. ;     Preference flags.
  208.  
  209. scListEveryCodec                EQU        $00000002
  210. scAllowZeroFrameRate            EQU        $00000004
  211. scAllowZeroKeyFrameRate            EQU        $00000008
  212. scShowBestDepth                    EQU        $00000010
  213. scUseMovableModal                EQU        $00000020
  214.  
  215. ;     Possible test flags for setting test image.
  216.  
  217. scPreferCropping                EQU        $01
  218. scPreferScaling                    EQU        $02
  219. scPreferScalingAndCropping        EQU        $03
  220.  
  221. ;     Dimensions of the image preview box.
  222.  
  223. scTestImageWidth                EQU        80
  224. scTestImageHeight                EQU        80
  225. ;     Possible items returned by hookProc.
  226.  
  227. scOKItem                        EQU        1
  228. scCancelItem                    EQU        2
  229. scCustomItem                    EQU        3
  230. ;     Result returned when user cancelled.
  231.  
  232. scUserCancelled                    EQU        1
  233.  
  234.  
  235. ;     Get/SetInfo structures.
  236.  
  237. SCSpatialSettings        RECORD 0
  238. codecType                 ds.l    1                ; offset: $0 (0)
  239. codec                     ds.l    1                ; offset: $4 (4)
  240. depth                     ds.w    1                ; offset: $8 (8)
  241. spatialQuality             ds.l    1                ; offset: $A (10)
  242. sizeof                     EQU *                    ; size:   $E (14)
  243.                         ENDR
  244. SCTemporalSettings        RECORD 0
  245. temporalQuality             ds.l    1                ; offset: $0 (0)
  246. frameRate                 ds.l    1                ; offset: $4 (4)
  247. keyFrameRate             ds.l    1                ; offset: $8 (8)
  248. sizeof                     EQU *                    ; size:   $C (12)
  249.                         ENDR
  250. SCDataRateSettings        RECORD 0
  251. dataRate                 ds.l    1                ; offset: $0 (0)
  252. frameDuration             ds.l    1                ; offset: $4 (4)
  253. minSpatialQuality         ds.l    1                ; offset: $8 (8)
  254. minTemporalQuality         ds.l    1                ; offset: $C (12)
  255. sizeof                     EQU *                    ; size:   $10 (16)
  256.                         ENDR
  257. SCExtendedProcs            RECORD 0
  258. filterProc                 ds.l    1                ; offset: $0 (0)
  259. hookProc                 ds.l    1                ; offset: $4 (4)
  260. refcon                     ds.l    1                ; offset: $8 (8)
  261. customName                 ds        Str31            ; offset: $C (12)
  262. sizeof                     EQU *                    ; size:   $2C (44)
  263.                         ENDR
  264. ;     Get/SetInfo selectors
  265.  
  266. scSpatialSettingsType            EQU        'sptl'                ; pointer to SCSpatialSettings struct
  267. scTemporalSettingsType            EQU        'tprl'                ; pointer to SCTemporalSettings struct
  268. scDataRateSettingsType            EQU        'drat'                ; pointer to SCDataRateSettings struct
  269. scColorTableType                EQU        'clut'                ; pointer to CTabHandle
  270. scProgressProcType                EQU        'prog'                ; pointer to ProgressRecord struct
  271. scExtendedProcsType                EQU        'xprc'                ; pointer to SCExtendedProcs struct
  272. scPreferenceFlagsType            EQU        'pref'                ; pointer to long
  273. scSettingsStateType                EQU        'ssta'                ; pointer to Handle
  274. scSequenceIDType                EQU        'sequ'                ; pointer to ImageSequence
  275. scWindowPositionType            EQU        'wndw'                ; pointer to Point
  276. scCodecFlagsType                EQU        'cflg'                ; pointer to CodecFlags
  277. scCodecSettingsType                EQU        'cdec'                ; pointer to Handle
  278. scForceKeyValueType                EQU        'ksim'                ; pointer to long
  279. ;     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.
  280.  
  281.  
  282. SCParams                RECORD 0
  283. flags                     ds.l    1                ; offset: $0 (0)
  284. theCodecType             ds.l    1                ; offset: $4 (4)
  285. theCodec                 ds.l    1                ; offset: $8 (8)
  286. spatialQuality             ds.l    1                ; offset: $C (12)
  287. temporalQuality             ds.l    1                ; offset: $10 (16)
  288. depth                     ds.w    1                ; offset: $14 (20)
  289. frameRate                 ds.l    1                ; offset: $16 (22)
  290. keyFrameRate             ds.l    1                ; offset: $1A (26)
  291. reserved1                 ds.l    1                ; offset: $1E (30)
  292. reserved2                 ds.l    1                ; offset: $22 (34)
  293. sizeof                     EQU *                    ; size:   $26 (38)
  294.                         ENDR
  295.  
  296. scGetCompression                EQU        1
  297. scShowMotionSettings            EQU        $00000001
  298. scSettingsChangedItem            EQU        -1
  299.  
  300. scCompressFlagIgnoreIdenticalFrames EQU    1
  301.  
  302. ; * These are Progress procedures *
  303. ;
  304. ; pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  305. ;
  306.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  307.         Macro
  308.         _SCGetCompressionExtended
  309.             move.l              #$00180001,-(sp)
  310.             moveq               #0,D0
  311.             dc.w                $A82A
  312.         EndM
  313.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  314.         IMPORT_CFM_FUNCTION SCGetCompressionExtended
  315.     ENDIF
  316.  
  317. ;
  318. ; pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  319. ;
  320.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  321.         Macro
  322.         _SCPositionRect
  323.             move.l              #$00080002,-(sp)
  324.             moveq               #0,D0
  325.             dc.w                $A82A
  326.         EndM
  327.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  328.         IMPORT_CFM_FUNCTION SCPositionRect
  329.     ENDIF
  330.  
  331. ;
  332. ; pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  333. ;
  334.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  335.         Macro
  336.         _SCPositionDialog
  337.             move.l              #$00060003,-(sp)
  338.             moveq               #0,D0
  339.             dc.w                $A82A
  340.         EndM
  341.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  342.         IMPORT_CFM_FUNCTION SCPositionDialog
  343.     ENDIF
  344.  
  345. ;
  346. ; pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  347. ;
  348.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  349.         Macro
  350.         _SCSetTestImagePictHandle
  351.             move.l              #$000A0004,-(sp)
  352.             moveq               #0,D0
  353.             dc.w                $A82A
  354.         EndM
  355.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  356.         IMPORT_CFM_FUNCTION SCSetTestImagePictHandle
  357.     ENDIF
  358.  
  359. ;
  360. ; pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  361. ;
  362.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  363.         Macro
  364.         _SCSetTestImagePictFile
  365.             move.l              #$00080005,-(sp)
  366.             moveq               #0,D0
  367.             dc.w                $A82A
  368.         EndM
  369.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  370.         IMPORT_CFM_FUNCTION SCSetTestImagePictFile
  371.     ENDIF
  372.  
  373. ;
  374. ; pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  375. ;
  376.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  377.         Macro
  378.         _SCSetTestImagePixMap
  379.             move.l              #$000A0006,-(sp)
  380.             moveq               #0,D0
  381.             dc.w                $A82A
  382.         EndM
  383.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  384.         IMPORT_CFM_FUNCTION SCSetTestImagePixMap
  385.     ENDIF
  386.  
  387. ;
  388. ; pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  389. ;
  390.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  391.         Macro
  392.         _SCGetBestDeviceRect
  393.             move.l              #$00040007,-(sp)
  394.             moveq               #0,D0
  395.             dc.w                $A82A
  396.         EndM
  397.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  398.         IMPORT_CFM_FUNCTION SCGetBestDeviceRect
  399.     ENDIF
  400.  
  401.  
  402. ;
  403. ; pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  404. ;
  405.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  406.         Macro
  407.         _SCRequestImageSettings
  408.             move.l              #$0000000A,-(sp)
  409.             moveq               #0,D0
  410.             dc.w                $A82A
  411.         EndM
  412.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  413.         IMPORT_CFM_FUNCTION SCRequestImageSettings
  414.     ENDIF
  415.  
  416. ;
  417. ; pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  418. ;
  419.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  420.         Macro
  421.         _SCCompressImage
  422.             move.l              #$0010000B,-(sp)
  423.             moveq               #0,D0
  424.             dc.w                $A82A
  425.         EndM
  426.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  427.         IMPORT_CFM_FUNCTION SCCompressImage
  428.     ENDIF
  429.  
  430. ;
  431. ; pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  432. ;
  433.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  434.         Macro
  435.         _SCCompressPicture
  436.             move.l              #$0008000C,-(sp)
  437.             moveq               #0,D0
  438.             dc.w                $A82A
  439.         EndM
  440.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  441.         IMPORT_CFM_FUNCTION SCCompressPicture
  442.     ENDIF
  443.  
  444. ;
  445. ; pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  446. ;
  447.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  448.         Macro
  449.         _SCCompressPictureFile
  450.             move.l              #$0004000D,-(sp)
  451.             moveq               #0,D0
  452.             dc.w                $A82A
  453.         EndM
  454.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  455.         IMPORT_CFM_FUNCTION SCCompressPictureFile
  456.     ENDIF
  457.  
  458. ;
  459. ; pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  460. ;
  461.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  462.         Macro
  463.         _SCRequestSequenceSettings
  464.             move.l              #$0000000E,-(sp)
  465.             moveq               #0,D0
  466.             dc.w                $A82A
  467.         EndM
  468.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  469.         IMPORT_CFM_FUNCTION SCRequestSequenceSettings
  470.     ENDIF
  471.  
  472. ;
  473. ; pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  474. ;
  475.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  476.         Macro
  477.         _SCCompressSequenceBegin
  478.             move.l              #$000C000F,-(sp)
  479.             moveq               #0,D0
  480.             dc.w                $A82A
  481.         EndM
  482.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  483.         IMPORT_CFM_FUNCTION SCCompressSequenceBegin
  484.     ENDIF
  485.  
  486. ;
  487. ; pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  488. ;
  489.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  490.         Macro
  491.         _SCCompressSequenceFrame
  492.             move.l              #$00140010,-(sp)
  493.             moveq               #0,D0
  494.             dc.w                $A82A
  495.         EndM
  496.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  497.         IMPORT_CFM_FUNCTION SCCompressSequenceFrame
  498.     ENDIF
  499.  
  500. ;
  501. ; pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  502. ;
  503.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  504.         Macro
  505.         _SCCompressSequenceEnd
  506.             move.l              #$00000011,-(sp)
  507.             moveq               #0,D0
  508.             dc.w                $A82A
  509.         EndM
  510.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  511.         IMPORT_CFM_FUNCTION SCCompressSequenceEnd
  512.     ENDIF
  513.  
  514. ;
  515. ; pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  516. ;
  517.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  518.         Macro
  519.         _SCDefaultPictHandleSettings
  520.             move.l              #$00060012,-(sp)
  521.             moveq               #0,D0
  522.             dc.w                $A82A
  523.         EndM
  524.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  525.         IMPORT_CFM_FUNCTION SCDefaultPictHandleSettings
  526.     ENDIF
  527.  
  528. ;
  529. ; pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  530. ;
  531.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  532.         Macro
  533.         _SCDefaultPictFileSettings
  534.             move.l              #$00040013,-(sp)
  535.             moveq               #0,D0
  536.             dc.w                $A82A
  537.         EndM
  538.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  539.         IMPORT_CFM_FUNCTION SCDefaultPictFileSettings
  540.     ENDIF
  541.  
  542. ;
  543. ; pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  544. ;
  545.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  546.         Macro
  547.         _SCDefaultPixMapSettings
  548.             move.l              #$00060014,-(sp)
  549.             moveq               #0,D0
  550.             dc.w                $A82A
  551.         EndM
  552.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  553.         IMPORT_CFM_FUNCTION SCDefaultPixMapSettings
  554.     ENDIF
  555.  
  556. ;
  557. ; pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  558. ;
  559.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  560.         Macro
  561.         _SCGetInfo
  562.             move.l              #$00080015,-(sp)
  563.             moveq               #0,D0
  564.             dc.w                $A82A
  565.         EndM
  566.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  567.         IMPORT_CFM_FUNCTION SCGetInfo
  568.     ENDIF
  569.  
  570. ;
  571. ; pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  572. ;
  573.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  574.         Macro
  575.         _SCSetInfo
  576.             move.l              #$00080016,-(sp)
  577.             moveq               #0,D0
  578.             dc.w                $A82A
  579.         EndM
  580.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  581.         IMPORT_CFM_FUNCTION SCSetInfo
  582.     ENDIF
  583.  
  584. ;
  585. ; pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  586. ;
  587.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  588.         Macro
  589.         _SCNewGWorld
  590.             move.l              #$000C0017,-(sp)
  591.             moveq               #0,D0
  592.             dc.w                $A82A
  593.         EndM
  594.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  595.         IMPORT_CFM_FUNCTION SCNewGWorld
  596.     ENDIF
  597.  
  598. ;
  599. ; pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  600. ;
  601.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  602.         Macro
  603.         _SCSetCompressFlags
  604.             move.l              #$00040018,-(sp)
  605.             moveq               #0,D0
  606.             dc.w                $A82A
  607.         EndM
  608.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  609.         IMPORT_CFM_FUNCTION SCSetCompressFlags
  610.     ENDIF
  611.  
  612. ;
  613. ; pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  614. ;
  615.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  616.         Macro
  617.         _SCGetCompressFlags
  618.             move.l              #$00040019,-(sp)
  619.             moveq               #0,D0
  620.             dc.w                $A82A
  621.         EndM
  622.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  623.         IMPORT_CFM_FUNCTION SCGetCompressFlags
  624.     ENDIF
  625.  
  626.  
  627.  
  628.  
  629. TweenComponentType                EQU        'twen'
  630. ; typedef ComponentInstance             TweenerComponent
  631.  
  632.  
  633.  
  634. TweenRecord                RECORD 0
  635. version                     ds.l    1                ; offset: $0 (0)
  636. container                 ds.l    1                ; offset: $4 (4)
  637. tweenAtom                 ds.l    1                ; offset: $8 (8)
  638. dataAtom                 ds.l    1                ; offset: $C (12)
  639. percent                     ds.l    1                ; offset: $10 (16)
  640. dataProc                 ds.l    1                ; offset: $14 (20)
  641. private1                 ds.l    1                ; offset: $18 (24)
  642. private2                 ds.l    1                ; offset: $1C (28)
  643. sizeof                     EQU *                    ; size:   $20 (32)
  644.                         ENDR
  645. ;
  646. ; pascal ComponentResult TweenerInitialize(TweenerComponent tc, QTAtomContainer container, QTAtom tweenAtom, QTAtom dataAtom)
  647. ;
  648.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  649.         Macro
  650.         _TweenerInitialize
  651.             move.l              #$000C0001,-(sp)
  652.             moveq               #0,D0
  653.             dc.w                $A82A
  654.         EndM
  655.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  656.         IMPORT_CFM_FUNCTION TweenerInitialize
  657.     ENDIF
  658.  
  659. ;
  660. ; pascal ComponentResult TweenerDoTween(TweenerComponent tc, TweenRecord *tr)
  661. ;
  662.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  663.         Macro
  664.         _TweenerDoTween
  665.             move.l              #$00040002,-(sp)
  666.             moveq               #0,D0
  667.             dc.w                $A82A
  668.         EndM
  669.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  670.         IMPORT_CFM_FUNCTION TweenerDoTween
  671.     ENDIF
  672.  
  673. ;
  674. ; pascal ComponentResult TweenerReset(TweenerComponent tc)
  675. ;
  676.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  677.         Macro
  678.         _TweenerReset
  679.             move.l              #$00000003,-(sp)
  680.             moveq               #0,D0
  681.             dc.w                $A82A
  682.         EndM
  683.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  684.         IMPORT_CFM_FUNCTION TweenerReset
  685.     ENDIF
  686.  
  687.  
  688.  
  689.  
  690. TCSourceRefNameType                EQU        'name'
  691.  
  692. tcDropFrame                        EQU        $01
  693. tc24HourMax                        EQU        $02
  694. tcNegTimesOK                    EQU        $04
  695. tcCounter                        EQU        $08
  696. TimeCodeDef                RECORD 0
  697. flags                     ds.l    1                ; offset: $0 (0)        ;  drop-frame, etc.
  698. fTimeScale                 ds.l    1                ; offset: $4 (4)        ;  time scale of frameDuration (eg. 2997)
  699. frameDuration             ds.l    1                ; offset: $8 (8)        ;  duration of each frame (eg. 100)
  700. numFrames                 ds.b    1                ; offset: $C (12)        ;  frames/sec for timecode (eg. 30) OR frames/tick for counter mode
  701. padding                     ds.b    1                ; offset: $D (13)        ;  unused padding byte
  702. sizeof                     EQU *                    ; size:   $E (14)
  703.                         ENDR
  704.  
  705. tctNegFlag                        EQU        $80                    ; negative bit is in minutes
  706. TimeCodeTime            RECORD 0
  707. hours                     ds.b    1                ; offset: $0 (0)
  708. minutes                     ds.b    1                ; offset: $1 (1)
  709. seconds                     ds.b    1                ; offset: $2 (2)
  710. frames                     ds.b    1                ; offset: $3 (3)
  711. sizeof                     EQU *                    ; size:   $4 (4)
  712.                         ENDR
  713. TimeCodeCounter            RECORD 0
  714. counter                     ds.l    1                ; offset: $0 (0)
  715. sizeof                     EQU *                    ; size:   $4 (4)
  716.                         ENDR
  717. TimeCodeRecord            RECORD 0
  718. t                         ds        TimeCodeTime    ; offset: $0 (0)
  719.                          ORG 0
  720. c                         ds        TimeCodeCounter ; offset: $0 (0)
  721. sizeof                     EQU *                    ; size:   $4 (4)
  722.                         ENDR
  723. TimeCodeDescription        RECORD 0
  724. descSize                 ds.l    1                ; offset: $0 (0)        ;  standard sample description header
  725. dataFormat                 ds.l    1                ; offset: $4 (4)
  726. resvd1                     ds.l    1                ; offset: $8 (8)
  727. resvd2                     ds.w    1                ; offset: $C (12)
  728. dataRefIndex             ds.w    1                ; offset: $E (14)
  729. flags                     ds.l    1                ; offset: $10 (16)        ;  timecode specific stuff
  730. timeCodeDef                 ds        TimeCodeDef        ; offset: $14 (20)
  731. srcRef                     ds.l    1                ; offset: $22 (34) <-- really an array of length one
  732. sizeof                     EQU *                    ; size:   $26 (38)
  733.                         ENDR
  734. ; typedef struct TimeCodeDescription *    TimeCodeDescriptionPtr
  735.  
  736. ; typedef TimeCodeDescriptionPtr *        TimeCodeDescriptionHandle
  737.  
  738.  
  739. tcdfShowTimeCode                EQU        $01
  740.  
  741. TCTextOptions            RECORD 0
  742. txFont                     ds.w    1                ; offset: $0 (0)
  743. txFace                     ds.w    1                ; offset: $2 (2)
  744. txSize                     ds.w    1                ; offset: $4 (4)
  745. foreColor                 ds        RGBColor        ; offset: $6 (6)
  746. backColor                 ds        RGBColor        ; offset: $C (12)
  747. sizeof                     EQU *                    ; size:   $12 (18)
  748.                         ENDR
  749. ; typedef struct TCTextOptions *        TCTextOptionsPtr
  750.  
  751. ;
  752. ; pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  753. ;
  754.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  755.         Macro
  756.         _TCGetCurrentTimeCode
  757.             move.l              #$00100101,-(sp)
  758.             moveq               #0,D0
  759.             dc.w                $A82A
  760.         EndM
  761.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  762.         IMPORT_CFM_FUNCTION TCGetCurrentTimeCode
  763.     ENDIF
  764.  
  765. ;
  766. ; pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  767. ;
  768.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  769.         Macro
  770.         _TCGetTimeCodeAtTime
  771.             move.l              #$00140102,-(sp)
  772.             moveq               #0,D0
  773.             dc.w                $A82A
  774.         EndM
  775.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  776.         IMPORT_CFM_FUNCTION TCGetTimeCodeAtTime
  777.     ENDIF
  778.  
  779. ;
  780. ; pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  781. ;
  782.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  783.         Macro
  784.         _TCTimeCodeToString
  785.             move.l              #$000C0103,-(sp)
  786.             moveq               #0,D0
  787.             dc.w                $A82A
  788.         EndM
  789.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  790.         IMPORT_CFM_FUNCTION TCTimeCodeToString
  791.     ENDIF
  792.  
  793. ;
  794. ; pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  795. ;
  796.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  797.         Macro
  798.         _TCTimeCodeToFrameNumber
  799.             move.l              #$000C0104,-(sp)
  800.             moveq               #0,D0
  801.             dc.w                $A82A
  802.         EndM
  803.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  804.         IMPORT_CFM_FUNCTION TCTimeCodeToFrameNumber
  805.     ENDIF
  806.  
  807. ;
  808. ; pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  809. ;
  810.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  811.         Macro
  812.         _TCFrameNumberToTimeCode
  813.             move.l              #$000C0105,-(sp)
  814.             moveq               #0,D0
  815.             dc.w                $A82A
  816.         EndM
  817.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  818.         IMPORT_CFM_FUNCTION TCFrameNumberToTimeCode
  819.     ENDIF
  820.  
  821. ;
  822. ; pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  823. ;
  824.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  825.         Macro
  826.         _TCGetSourceRef
  827.             move.l              #$00080106,-(sp)
  828.             moveq               #0,D0
  829.             dc.w                $A82A
  830.         EndM
  831.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  832.         IMPORT_CFM_FUNCTION TCGetSourceRef
  833.     ENDIF
  834.  
  835. ;
  836. ; pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  837. ;
  838.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  839.         Macro
  840.         _TCSetSourceRef
  841.             move.l              #$00080107,-(sp)
  842.             moveq               #0,D0
  843.             dc.w                $A82A
  844.         EndM
  845.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  846.         IMPORT_CFM_FUNCTION TCSetSourceRef
  847.     ENDIF
  848.  
  849. ;
  850. ; pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  851. ;
  852.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  853.         Macro
  854.         _TCSetTimeCodeFlags
  855.             move.l              #$00080108,-(sp)
  856.             moveq               #0,D0
  857.             dc.w                $A82A
  858.         EndM
  859.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  860.         IMPORT_CFM_FUNCTION TCSetTimeCodeFlags
  861.     ENDIF
  862.  
  863. ;
  864. ; pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  865. ;
  866.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  867.         Macro
  868.         _TCGetTimeCodeFlags
  869.             move.l              #$00040109,-(sp)
  870.             moveq               #0,D0
  871.             dc.w                $A82A
  872.         EndM
  873.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  874.         IMPORT_CFM_FUNCTION TCGetTimeCodeFlags
  875.     ENDIF
  876.  
  877. ;
  878. ; pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  879. ;
  880.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  881.         Macro
  882.         _TCSetDisplayOptions
  883.             move.l              #$0004010A,-(sp)
  884.             moveq               #0,D0
  885.             dc.w                $A82A
  886.         EndM
  887.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  888.         IMPORT_CFM_FUNCTION TCSetDisplayOptions
  889.     ENDIF
  890.  
  891. ;
  892. ; pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  893. ;
  894.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  895.         Macro
  896.         _TCGetDisplayOptions
  897.             move.l              #$0004010B,-(sp)
  898.             moveq               #0,D0
  899.             dc.w                $A82A
  900.         EndM
  901.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  902.         IMPORT_CFM_FUNCTION TCGetDisplayOptions
  903.     ENDIF
  904.  
  905.  
  906.  
  907. ; typedef ComponentInstance             MovieImportComponent
  908.  
  909. ; typedef ComponentInstance             MovieExportComponent
  910.  
  911.  
  912. MovieImportType                    EQU        'eat '
  913. MovieExportType                    EQU        'spit'
  914.  
  915. canMovieImportHandles            EQU        $01
  916. canMovieImportFiles                EQU        $02
  917. hasMovieImportUserInterface        EQU        $04
  918. canMovieExportHandles            EQU        $08
  919. canMovieExportFiles                EQU        $10
  920. hasMovieExportUserInterface        EQU        $20
  921. dontAutoFileMovieImport            EQU        $40
  922. canMovieExportAuxDataHandle        EQU        $80
  923. canMovieImportValidateHandles    EQU        $0100
  924. canMovieImportValidateFile        EQU        $0200
  925. dontRegisterWithEasyOpen        EQU        $0400
  926. canMovieImportInPlace            EQU        $0800
  927. movieImportSubTypeIsFileExtension EQU    $1000
  928.  
  929. movieImportCreateTrack            EQU        1
  930. movieImportInParallel            EQU        2
  931. movieImportMustUseTrack            EQU        4
  932.  
  933. movieImportResultUsedMultipleTracks EQU    8
  934.  
  935. kMovieExportTextOnly            EQU        0
  936. kMovieExportAbsoluteTime        EQU        1
  937. kMovieExportRelativeTime        EQU        2
  938.  
  939. kMIDIImportSilenceBefore        EQU        $01
  940. kMIDIImportSilenceAfter            EQU        $02
  941. kMIDIImport20Playable            EQU        $04
  942. kMIDIImportWantLyrics            EQU        $08
  943. ;
  944. ; pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  945. ;
  946.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  947.         Macro
  948.         _MovieImportHandle
  949.             move.l              #$00200001,-(sp)
  950.             moveq               #0,D0
  951.             dc.w                $A82A
  952.         EndM
  953.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  954.         IMPORT_CFM_FUNCTION MovieImportHandle
  955.     ENDIF
  956.  
  957. ;
  958. ; pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  959. ;
  960.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  961.         Macro
  962.         _MovieImportFile
  963.             move.l              #$00200002,-(sp)
  964.             moveq               #0,D0
  965.             dc.w                $A82A
  966.         EndM
  967.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  968.         IMPORT_CFM_FUNCTION MovieImportFile
  969.     ENDIF
  970.  
  971. ;
  972. ; pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  973. ;
  974.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  975.         Macro
  976.         _MovieImportSetSampleDuration
  977.             move.l              #$00080003,-(sp)
  978.             moveq               #0,D0
  979.             dc.w                $A82A
  980.         EndM
  981.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  982.         IMPORT_CFM_FUNCTION MovieImportSetSampleDuration
  983.     ENDIF
  984.  
  985. ;
  986. ; pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  987. ;
  988.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  989.         Macro
  990.         _MovieImportSetSampleDescription
  991.             move.l              #$00080004,-(sp)
  992.             moveq               #0,D0
  993.             dc.w                $A82A
  994.         EndM
  995.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  996.         IMPORT_CFM_FUNCTION MovieImportSetSampleDescription
  997.     ENDIF
  998.  
  999. ;
  1000. ; pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1001. ;
  1002.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1003.         Macro
  1004.         _MovieImportSetMediaFile
  1005.             move.l              #$00040005,-(sp)
  1006.             moveq               #0,D0
  1007.             dc.w                $A82A
  1008.         EndM
  1009.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1010.         IMPORT_CFM_FUNCTION MovieImportSetMediaFile
  1011.     ENDIF
  1012.  
  1013. ;
  1014. ; pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1015. ;
  1016.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1017.         Macro
  1018.         _MovieImportSetDimensions
  1019.             move.l              #$00080006,-(sp)
  1020.             moveq               #0,D0
  1021.             dc.w                $A82A
  1022.         EndM
  1023.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1024.         IMPORT_CFM_FUNCTION MovieImportSetDimensions
  1025.     ENDIF
  1026.  
  1027. ;
  1028. ; pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1029. ;
  1030.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1031.         Macro
  1032.         _MovieImportSetChunkSize
  1033.             move.l              #$00040007,-(sp)
  1034.             moveq               #0,D0
  1035.             dc.w                $A82A
  1036.         EndM
  1037.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1038.         IMPORT_CFM_FUNCTION MovieImportSetChunkSize
  1039.     ENDIF
  1040.  
  1041. ;
  1042. ; pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1043. ;
  1044.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1045.         Macro
  1046.         _MovieImportSetProgressProc
  1047.             move.l              #$00080008,-(sp)
  1048.             moveq               #0,D0
  1049.             dc.w                $A82A
  1050.         EndM
  1051.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1052.         IMPORT_CFM_FUNCTION MovieImportSetProgressProc
  1053.     ENDIF
  1054.  
  1055. ;
  1056. ; pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1057. ;
  1058.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1059.         Macro
  1060.         _MovieImportSetAuxiliaryData
  1061.             move.l              #$00080009,-(sp)
  1062.             moveq               #0,D0
  1063.             dc.w                $A82A
  1064.         EndM
  1065.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1066.         IMPORT_CFM_FUNCTION MovieImportSetAuxiliaryData
  1067.     ENDIF
  1068.  
  1069. ;
  1070. ; pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1071. ;
  1072.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1073.         Macro
  1074.         _MovieImportSetFromScrap
  1075.             move.l              #$0002000A,-(sp)
  1076.             moveq               #0,D0
  1077.             dc.w                $A82A
  1078.         EndM
  1079.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1080.         IMPORT_CFM_FUNCTION MovieImportSetFromScrap
  1081.     ENDIF
  1082.  
  1083. ;
  1084. ; pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1085. ;
  1086.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1087.         Macro
  1088.         _MovieImportDoUserDialog
  1089.             move.l              #$000C000B,-(sp)
  1090.             moveq               #0,D0
  1091.             dc.w                $A82A
  1092.         EndM
  1093.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1094.         IMPORT_CFM_FUNCTION MovieImportDoUserDialog
  1095.     ENDIF
  1096.  
  1097. ;
  1098. ; pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1099. ;
  1100.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1101.         Macro
  1102.         _MovieImportSetDuration
  1103.             move.l              #$0004000C,-(sp)
  1104.             moveq               #0,D0
  1105.             dc.w                $A82A
  1106.         EndM
  1107.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1108.         IMPORT_CFM_FUNCTION MovieImportSetDuration
  1109.     ENDIF
  1110.  
  1111. ;
  1112. ; pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1113. ;
  1114.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1115.         Macro
  1116.         _MovieImportGetAuxiliaryDataType
  1117.             move.l              #$0004000D,-(sp)
  1118.             moveq               #0,D0
  1119.             dc.w                $A82A
  1120.         EndM
  1121.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1122.         IMPORT_CFM_FUNCTION MovieImportGetAuxiliaryDataType
  1123.     ENDIF
  1124.  
  1125. ;
  1126. ; pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1127. ;
  1128.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1129.         Macro
  1130.         _MovieImportValidate
  1131.             move.l              #$000C000E,-(sp)
  1132.             moveq               #0,D0
  1133.             dc.w                $A82A
  1134.         EndM
  1135.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1136.         IMPORT_CFM_FUNCTION MovieImportValidate
  1137.     ENDIF
  1138.  
  1139. ;
  1140. ; pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1141. ;
  1142.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1143.         Macro
  1144.         _MovieImportGetFileType
  1145.             move.l              #$0004000F,-(sp)
  1146.             moveq               #0,D0
  1147.             dc.w                $A82A
  1148.         EndM
  1149.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1150.         IMPORT_CFM_FUNCTION MovieImportGetFileType
  1151.     ENDIF
  1152.  
  1153. ;
  1154. ; pascal ComponentResult MovieImportDataRef(MovieImportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1155. ;
  1156.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1157.         Macro
  1158.         _MovieImportDataRef
  1159.             move.l              #$00240010,-(sp)
  1160.             moveq               #0,D0
  1161.             dc.w                $A82A
  1162.         EndM
  1163.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1164.         IMPORT_CFM_FUNCTION MovieImportDataRef
  1165.     ENDIF
  1166.  
  1167. ;
  1168. ; pascal ComponentResult MovieImportGetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle *desc, OSType *mediaType)
  1169. ;
  1170.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1171.         Macro
  1172.         _MovieImportGetSampleDescription
  1173.             move.l              #$00080011,-(sp)
  1174.             moveq               #0,D0
  1175.             dc.w                $A82A
  1176.         EndM
  1177.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1178.         IMPORT_CFM_FUNCTION MovieImportGetSampleDescription
  1179.     ENDIF
  1180.  
  1181. ;
  1182. ; pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1183. ;
  1184.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1185.         Macro
  1186.         _MovieExportToHandle
  1187.             move.l              #$00140080,-(sp)
  1188.             moveq               #0,D0
  1189.             dc.w                $A82A
  1190.         EndM
  1191.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1192.         IMPORT_CFM_FUNCTION MovieExportToHandle
  1193.     ENDIF
  1194.  
  1195. ;
  1196. ; pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1197. ;
  1198.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1199.         Macro
  1200.         _MovieExportToFile
  1201.             move.l              #$00140081,-(sp)
  1202.             moveq               #0,D0
  1203.             dc.w                $A82A
  1204.         EndM
  1205.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1206.         IMPORT_CFM_FUNCTION MovieExportToFile
  1207.     ENDIF
  1208.  
  1209. ;
  1210. ; pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1211. ;
  1212.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1213.         Macro
  1214.         _MovieExportGetAuxiliaryData
  1215.             move.l              #$00080083,-(sp)
  1216.             moveq               #0,D0
  1217.             dc.w                $A82A
  1218.         EndM
  1219.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1220.         IMPORT_CFM_FUNCTION MovieExportGetAuxiliaryData
  1221.     ENDIF
  1222.  
  1223. ;
  1224. ; pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1225. ;
  1226.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1227.         Macro
  1228.         _MovieExportSetProgressProc
  1229.             move.l              #$00080084,-(sp)
  1230.             moveq               #0,D0
  1231.             dc.w                $A82A
  1232.         EndM
  1233.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1234.         IMPORT_CFM_FUNCTION MovieExportSetProgressProc
  1235.     ENDIF
  1236.  
  1237. ;
  1238. ; pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1239. ;
  1240.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1241.         Macro
  1242.         _MovieExportSetSampleDescription
  1243.             move.l              #$00080085,-(sp)
  1244.             moveq               #0,D0
  1245.             dc.w                $A82A
  1246.         EndM
  1247.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1248.         IMPORT_CFM_FUNCTION MovieExportSetSampleDescription
  1249.     ENDIF
  1250.  
  1251. ;
  1252. ; pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1253. ;
  1254.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1255.         Macro
  1256.         _MovieExportDoUserDialog
  1257.             move.l              #$00140086,-(sp)
  1258.             moveq               #0,D0
  1259.             dc.w                $A82A
  1260.         EndM
  1261.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1262.         IMPORT_CFM_FUNCTION MovieExportDoUserDialog
  1263.     ENDIF
  1264.  
  1265. ;
  1266. ; pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1267. ;
  1268.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1269.         Macro
  1270.         _MovieExportGetCreatorType
  1271.             move.l              #$00040087,-(sp)
  1272.             moveq               #0,D0
  1273.             dc.w                $A82A
  1274.         EndM
  1275.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1276.         IMPORT_CFM_FUNCTION MovieExportGetCreatorType
  1277.     ENDIF
  1278.  
  1279.  
  1280. ;  Text Export Display Info data structure
  1281. TextDisplayData            RECORD 0
  1282. displayFlags             ds.l    1                ; offset: $0 (0)
  1283. textJustification         ds.l    1                ; offset: $4 (4)
  1284. bgColor                     ds        RGBColor        ; offset: $8 (8)
  1285. textBox                     ds        Rect            ; offset: $E (14)
  1286. beginHilite                 ds.w    1                ; offset: $16 (22)
  1287. endHilite                 ds.w    1                ; offset: $18 (24)
  1288. hiliteColor                 ds        RGBColor        ; offset: $1A (26)
  1289. doHiliteColor             ds.b    1                ; offset: $20 (32)
  1290. filler                     ds.b    1                ; offset: $21 (33)
  1291. scrollDelayDur             ds.l    1                ; offset: $22 (34)
  1292. dropShadowOffset         ds        Point            ; offset: $26 (38)
  1293. dropShadowTransparency     ds.w    1                ; offset: $2A (42)
  1294. sizeof                     EQU *                    ; size:   $2C (44)
  1295.                         ENDR
  1296. ; typedef ComponentInstance             TextExportComponent
  1297.  
  1298. ;
  1299. ; pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1300. ;
  1301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1302.         Macro
  1303.         _TextExportGetDisplayData
  1304.             move.l              #$00040100,-(sp)
  1305.             moveq               #0,D0
  1306.             dc.w                $A82A
  1307.         EndM
  1308.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1309.         IMPORT_CFM_FUNCTION TextExportGetDisplayData
  1310.     ENDIF
  1311.  
  1312. ;
  1313. ; pascal ComponentResult TextExportGetTimeFraction(TextExportComponent ci, long *movieTimeFraction)
  1314. ;
  1315.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1316.         Macro
  1317.         _TextExportGetTimeFraction
  1318.             move.l              #$00040101,-(sp)
  1319.             moveq               #0,D0
  1320.             dc.w                $A82A
  1321.         EndM
  1322.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1323.         IMPORT_CFM_FUNCTION TextExportGetTimeFraction
  1324.     ENDIF
  1325.  
  1326. ;
  1327. ; pascal ComponentResult TextExportSetTimeFraction(TextExportComponent ci, long movieTimeFraction)
  1328. ;
  1329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1330.         Macro
  1331.         _TextExportSetTimeFraction
  1332.             move.l              #$00040102,-(sp)
  1333.             moveq               #0,D0
  1334.             dc.w                $A82A
  1335.         EndM
  1336.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1337.         IMPORT_CFM_FUNCTION TextExportSetTimeFraction
  1338.     ENDIF
  1339.  
  1340. ;
  1341. ; pascal ComponentResult TextExportGetSettings(TextExportComponent ci, long *setting)
  1342. ;
  1343.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1344.         Macro
  1345.         _TextExportGetSettings
  1346.             move.l              #$00040103,-(sp)
  1347.             moveq               #0,D0
  1348.             dc.w                $A82A
  1349.         EndM
  1350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1351.         IMPORT_CFM_FUNCTION TextExportGetSettings
  1352.     ENDIF
  1353.  
  1354. ;
  1355. ; pascal ComponentResult TextExportSetSettings(TextExportComponent ci, long setting)
  1356. ;
  1357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1358.         Macro
  1359.         _TextExportSetSettings
  1360.             move.l              #$00040104,-(sp)
  1361.             moveq               #0,D0
  1362.             dc.w                $A82A
  1363.         EndM
  1364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1365.         IMPORT_CFM_FUNCTION TextExportSetSettings
  1366.     ENDIF
  1367.  
  1368.  
  1369. ;
  1370. ; pascal ComponentResult MIDIImportGetSettings(TextExportComponent ci, long *setting)
  1371. ;
  1372.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1373.         Macro
  1374.         _MIDIImportGetSettings
  1375.             move.l              #$00040100,-(sp)
  1376.             moveq               #0,D0
  1377.             dc.w                $A82A
  1378.         EndM
  1379.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1380.         IMPORT_CFM_FUNCTION MIDIImportGetSettings
  1381.     ENDIF
  1382.  
  1383. ;
  1384. ; pascal ComponentResult MIDIImportSetSettings(TextExportComponent ci, long setting)
  1385. ;
  1386.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1387.         Macro
  1388.         _MIDIImportSetSettings
  1389.             move.l              #$00040101,-(sp)
  1390.             moveq               #0,D0
  1391.             dc.w                $A82A
  1392.         EndM
  1393.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1394.         IMPORT_CFM_FUNCTION MIDIImportSetSettings
  1395.     ENDIF
  1396.  
  1397.  
  1398.  
  1399.  
  1400.  
  1401. ; ***************
  1402. ;
  1403. ;    File Preview Components
  1404. ;
  1405. ;**************
  1406.  
  1407. ; typedef ComponentInstance             pnotComponent
  1408.  
  1409.  
  1410. pnotComponentWantsEvents        EQU        1
  1411. pnotComponentNeedsNoCache        EQU        2
  1412.  
  1413. ShowFilePreviewComponentType    EQU        'pnot'
  1414. CreateFilePreviewComponentType    EQU        'pmak'
  1415. ;
  1416. ; pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1417. ;
  1418.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1419.         Macro
  1420.         _PreviewShowData
  1421.             move.l              #$000C0001,-(sp)
  1422.             moveq               #0,D0
  1423.             dc.w                $A82A
  1424.         EndM
  1425.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1426.         IMPORT_CFM_FUNCTION PreviewShowData
  1427.     ENDIF
  1428.  
  1429. ;
  1430. ; pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1431. ;
  1432.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1433.         Macro
  1434.         _PreviewMakePreview
  1435.             move.l              #$00100002,-(sp)
  1436.             moveq               #0,D0
  1437.             dc.w                $A82A
  1438.         EndM
  1439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1440.         IMPORT_CFM_FUNCTION PreviewMakePreview
  1441.     ENDIF
  1442.  
  1443. ;
  1444. ; pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1445. ;
  1446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1447.         Macro
  1448.         _PreviewMakePreviewReference
  1449.             move.l              #$000C0003,-(sp)
  1450.             moveq               #0,D0
  1451.             dc.w                $A82A
  1452.         EndM
  1453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1454.         IMPORT_CFM_FUNCTION PreviewMakePreviewReference
  1455.     ENDIF
  1456.  
  1457. ;
  1458. ; pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1459. ;
  1460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1461.         Macro
  1462.         _PreviewEvent
  1463.             move.l              #$00080004,-(sp)
  1464.             moveq               #0,D0
  1465.             dc.w                $A82A
  1466.         EndM
  1467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1468.         IMPORT_CFM_FUNCTION PreviewEvent
  1469.     ENDIF
  1470.  
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.  
  1477. kDataHCanRead                    EQU        $00000001
  1478. kDataHSpecialRead                EQU        $00000002
  1479. kDataHSpecialReadFile            EQU        $00000004
  1480. kDataHCanWrite                    EQU        $00000008
  1481. kDataHSpecialWrite                EQU        $10
  1482. kDataHSpecialWriteFile            EQU        $20
  1483. kDataHCanStreamingWrite            EQU        $40
  1484. kDataHMustCheckDataRef            EQU        $80
  1485. DataHVolumeListRecord    RECORD 0
  1486. vRefNum                     ds.w    1                ; offset: $0 (0)
  1487. flags                     ds.l    1                ; offset: $2 (2)
  1488. sizeof                     EQU *                    ; size:   $6 (6)
  1489.                         ENDR
  1490. ; typedef struct DataHVolumeListRecord * DataHVolumeListPtr
  1491.  
  1492. ; typedef DataHVolumeListPtr *            DataHVolumeList
  1493.  
  1494.  
  1495. kDataHExtendedSchedule            EQU        'xtnd'
  1496. DataHScheduleRecord        RECORD 0
  1497. timeNeededBy             ds        TimeRecord        ; offset: $0 (0)
  1498. extendedID                 ds.l    1                ; offset: $10 (16)        ;  always is kDataHExtendedSchedule
  1499. extendedVers             ds.l    1                ; offset: $14 (20)        ;  always set to 0
  1500. priority                 ds.l    1                ; offset: $18 (24)        ;  100.0 or more means must have. lower numbers…
  1501. sizeof                     EQU *                    ; size:   $1C (28)
  1502.                         ENDR
  1503. ; typedef struct DataHScheduleRecord *    DataHSchedulePtr
  1504.  
  1505.  
  1506.  
  1507. ;
  1508. ; pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  1509. ;
  1510.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1511.         Macro
  1512.         _DataHGetData
  1513.             move.l              #$00100002,-(sp)
  1514.             moveq               #0,D0
  1515.             dc.w                $A82A
  1516.         EndM
  1517.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1518.         IMPORT_CFM_FUNCTION DataHGetData
  1519.     ENDIF
  1520.  
  1521. ;
  1522. ; pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  1523. ;
  1524.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1525.         Macro
  1526.         _DataHPutData
  1527.             move.l              #$00100003,-(sp)
  1528.             moveq               #0,D0
  1529.             dc.w                $A82A
  1530.         EndM
  1531.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1532.         IMPORT_CFM_FUNCTION DataHPutData
  1533.     ENDIF
  1534.  
  1535. ;
  1536. ; pascal ComponentResult DataHFlushData(DataHandler dh)
  1537. ;
  1538.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1539.         Macro
  1540.         _DataHFlushData
  1541.             move.l              #$00000004,-(sp)
  1542.             moveq               #0,D0
  1543.             dc.w                $A82A
  1544.         EndM
  1545.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1546.         IMPORT_CFM_FUNCTION DataHFlushData
  1547.     ENDIF
  1548.  
  1549. ;
  1550. ; pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  1551. ;
  1552.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1553.         Macro
  1554.         _DataHOpenForWrite
  1555.             move.l              #$00000005,-(sp)
  1556.             moveq               #0,D0
  1557.             dc.w                $A82A
  1558.         EndM
  1559.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1560.         IMPORT_CFM_FUNCTION DataHOpenForWrite
  1561.     ENDIF
  1562.  
  1563. ;
  1564. ; pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  1565. ;
  1566.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1567.         Macro
  1568.         _DataHCloseForWrite
  1569.             move.l              #$00000006,-(sp)
  1570.             moveq               #0,D0
  1571.             dc.w                $A82A
  1572.         EndM
  1573.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1574.         IMPORT_CFM_FUNCTION DataHCloseForWrite
  1575.     ENDIF
  1576.  
  1577.  
  1578. ;
  1579. ; pascal ComponentResult DataHOpenForRead(DataHandler dh)
  1580. ;
  1581.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1582.         Macro
  1583.         _DataHOpenForRead
  1584.             move.l              #$00000008,-(sp)
  1585.             moveq               #0,D0
  1586.             dc.w                $A82A
  1587.         EndM
  1588.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1589.         IMPORT_CFM_FUNCTION DataHOpenForRead
  1590.     ENDIF
  1591.  
  1592. ;
  1593. ; pascal ComponentResult DataHCloseForRead(DataHandler dh)
  1594. ;
  1595.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1596.         Macro
  1597.         _DataHCloseForRead
  1598.             move.l              #$00000009,-(sp)
  1599.             moveq               #0,D0
  1600.             dc.w                $A82A
  1601.         EndM
  1602.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1603.         IMPORT_CFM_FUNCTION DataHCloseForRead
  1604.     ENDIF
  1605.  
  1606. ;
  1607. ; pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  1608. ;
  1609.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1610.         Macro
  1611.         _DataHSetDataRef
  1612.             move.l              #$0004000A,-(sp)
  1613.             moveq               #0,D0
  1614.             dc.w                $A82A
  1615.         EndM
  1616.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1617.         IMPORT_CFM_FUNCTION DataHSetDataRef
  1618.     ENDIF
  1619.  
  1620. ;
  1621. ; pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  1622. ;
  1623.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1624.         Macro
  1625.         _DataHGetDataRef
  1626.             move.l              #$0004000B,-(sp)
  1627.             moveq               #0,D0
  1628.             dc.w                $A82A
  1629.         EndM
  1630.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1631.         IMPORT_CFM_FUNCTION DataHGetDataRef
  1632.     ENDIF
  1633.  
  1634. ;
  1635. ; pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  1636. ;
  1637.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1638.         Macro
  1639.         _DataHCompareDataRef
  1640.             move.l              #$0008000C,-(sp)
  1641.             moveq               #0,D0
  1642.             dc.w                $A82A
  1643.         EndM
  1644.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1645.         IMPORT_CFM_FUNCTION DataHCompareDataRef
  1646.     ENDIF
  1647.  
  1648. ;
  1649. ; pascal ComponentResult DataHTask(DataHandler dh)
  1650. ;
  1651.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1652.         Macro
  1653.         _DataHTask
  1654.             move.l              #$0000000D,-(sp)
  1655.             moveq               #0,D0
  1656.             dc.w                $A82A
  1657.         EndM
  1658.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1659.         IMPORT_CFM_FUNCTION DataHTask
  1660.     ENDIF
  1661.  
  1662. ;
  1663. ; pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  1664. ;
  1665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1666.         Macro
  1667.         _DataHScheduleData
  1668.             move.l              #$0018000E,-(sp)
  1669.             moveq               #0,D0
  1670.             dc.w                $A82A
  1671.         EndM
  1672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1673.         IMPORT_CFM_FUNCTION DataHScheduleData
  1674.     ENDIF
  1675.  
  1676. ;
  1677. ; pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  1678. ;
  1679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1680.         Macro
  1681.         _DataHFinishData
  1682.             move.l              #$0006000F,-(sp)
  1683.             moveq               #0,D0
  1684.             dc.w                $A82A
  1685.         EndM
  1686.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1687.         IMPORT_CFM_FUNCTION DataHFinishData
  1688.     ENDIF
  1689.  
  1690. ;
  1691. ; pascal ComponentResult DataHFlushCache(DataHandler dh)
  1692. ;
  1693.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1694.         Macro
  1695.         _DataHFlushCache
  1696.             move.l              #$00000010,-(sp)
  1697.             moveq               #0,D0
  1698.             dc.w                $A82A
  1699.         EndM
  1700.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1701.         IMPORT_CFM_FUNCTION DataHFlushCache
  1702.     ENDIF
  1703.  
  1704. ;
  1705. ; pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  1706. ;
  1707.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1708.         Macro
  1709.         _DataHResolveDataRef
  1710.             move.l              #$000A0011,-(sp)
  1711.             moveq               #0,D0
  1712.             dc.w                $A82A
  1713.         EndM
  1714.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1715.         IMPORT_CFM_FUNCTION DataHResolveDataRef
  1716.     ENDIF
  1717.  
  1718. ;
  1719. ; pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  1720. ;
  1721.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1722.         Macro
  1723.         _DataHGetFileSize
  1724.             move.l              #$00040012,-(sp)
  1725.             moveq               #0,D0
  1726.             dc.w                $A82A
  1727.         EndM
  1728.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1729.         IMPORT_CFM_FUNCTION DataHGetFileSize
  1730.     ENDIF
  1731.  
  1732. ;
  1733. ; pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  1734. ;
  1735.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1736.         Macro
  1737.         _DataHCanUseDataRef
  1738.             move.l              #$00080013,-(sp)
  1739.             moveq               #0,D0
  1740.             dc.w                $A82A
  1741.         EndM
  1742.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1743.         IMPORT_CFM_FUNCTION DataHCanUseDataRef
  1744.     ENDIF
  1745.  
  1746. ;
  1747. ; pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  1748. ;
  1749.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1750.         Macro
  1751.         _DataHGetVolumeList
  1752.             move.l              #$00040014,-(sp)
  1753.             moveq               #0,D0
  1754.             dc.w                $A82A
  1755.         EndM
  1756.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1757.         IMPORT_CFM_FUNCTION DataHGetVolumeList
  1758.     ENDIF
  1759.  
  1760. ;
  1761. ; pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  1762. ;
  1763.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1764.         Macro
  1765.         _DataHWrite
  1766.             move.l              #$00140015,-(sp)
  1767.             moveq               #0,D0
  1768.             dc.w                $A82A
  1769.         EndM
  1770.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1771.         IMPORT_CFM_FUNCTION DataHWrite
  1772.     ENDIF
  1773.  
  1774. ;
  1775. ; pascal ComponentResult DataHPreextend(DataHandler dh, long maxToAdd, long *spaceAdded)
  1776. ;
  1777.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1778.         Macro
  1779.         _DataHPreextend
  1780.             move.l              #$00080016,-(sp)
  1781.             moveq               #0,D0
  1782.             dc.w                $A82A
  1783.         EndM
  1784.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1785.         IMPORT_CFM_FUNCTION DataHPreextend
  1786.     ENDIF
  1787.  
  1788. ;
  1789. ; pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  1790. ;
  1791.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1792.         Macro
  1793.         _DataHSetFileSize
  1794.             move.l              #$00040017,-(sp)
  1795.             moveq               #0,D0
  1796.             dc.w                $A82A
  1797.         EndM
  1798.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1799.         IMPORT_CFM_FUNCTION DataHSetFileSize
  1800.     ENDIF
  1801.  
  1802. ;
  1803. ; pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  1804. ;
  1805.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1806.         Macro
  1807.         _DataHGetFreeSpace
  1808.             move.l              #$00040018,-(sp)
  1809.             moveq               #0,D0
  1810.             dc.w                $A82A
  1811.         EndM
  1812.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1813.         IMPORT_CFM_FUNCTION DataHGetFreeSpace
  1814.     ENDIF
  1815.  
  1816. ;
  1817. ; pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  1818. ;
  1819.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1820.         Macro
  1821.         _DataHCreateFile
  1822.             move.l              #$00060019,-(sp)
  1823.             moveq               #0,D0
  1824.             dc.w                $A82A
  1825.         EndM
  1826.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1827.         IMPORT_CFM_FUNCTION DataHCreateFile
  1828.     ENDIF
  1829.  
  1830. ;
  1831. ; pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  1832. ;
  1833.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1834.         Macro
  1835.         _DataHGetPreferredBlockSize
  1836.             move.l              #$0004001A,-(sp)
  1837.             moveq               #0,D0
  1838.             dc.w                $A82A
  1839.         EndM
  1840.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1841.         IMPORT_CFM_FUNCTION DataHGetPreferredBlockSize
  1842.     ENDIF
  1843.  
  1844. ;
  1845. ; pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  1846. ;
  1847.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1848.         Macro
  1849.         _DataHGetDeviceIndex
  1850.             move.l              #$0004001B,-(sp)
  1851.             moveq               #0,D0
  1852.             dc.w                $A82A
  1853.         EndM
  1854.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1855.         IMPORT_CFM_FUNCTION DataHGetDeviceIndex
  1856.     ENDIF
  1857.  
  1858. ;
  1859. ; pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  1860. ;
  1861.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1862.         Macro
  1863.         _DataHIsStreamingDataHandler
  1864.             move.l              #$0004001C,-(sp)
  1865.             moveq               #0,D0
  1866.             dc.w                $A82A
  1867.         EndM
  1868.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1869.         IMPORT_CFM_FUNCTION DataHIsStreamingDataHandler
  1870.     ENDIF
  1871.  
  1872. ;
  1873. ; pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  1874. ;
  1875.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1876.         Macro
  1877.         _DataHGetDataInBuffer
  1878.             move.l              #$0008001D,-(sp)
  1879.             moveq               #0,D0
  1880.             dc.w                $A82A
  1881.         EndM
  1882.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1883.         IMPORT_CFM_FUNCTION DataHGetDataInBuffer
  1884.     ENDIF
  1885.  
  1886. ;
  1887. ; pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  1888. ;
  1889.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1890.         Macro
  1891.         _DataHGetScheduleAheadTime
  1892.             move.l              #$0004001E,-(sp)
  1893.             moveq               #0,D0
  1894.             dc.w                $A82A
  1895.         EndM
  1896.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1897.         IMPORT_CFM_FUNCTION DataHGetScheduleAheadTime
  1898.     ENDIF
  1899.  
  1900. ;
  1901. ; pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  1902. ;
  1903.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1904.         Macro
  1905.         _DataHSetCacheSizeLimit
  1906.             move.l              #$0004001F,-(sp)
  1907.             moveq               #0,D0
  1908.             dc.w                $A82A
  1909.         EndM
  1910.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1911.         IMPORT_CFM_FUNCTION DataHSetCacheSizeLimit
  1912.     ENDIF
  1913.  
  1914. ;
  1915. ; pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  1916. ;
  1917.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1918.         Macro
  1919.         _DataHGetCacheSizeLimit
  1920.             move.l              #$00040020,-(sp)
  1921.             moveq               #0,D0
  1922.             dc.w                $A82A
  1923.         EndM
  1924.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1925.         IMPORT_CFM_FUNCTION DataHGetCacheSizeLimit
  1926.     ENDIF
  1927.  
  1928. ;
  1929. ; pascal ComponentResult DataHGetMovie(DataHandler dh, Movie *theMovie, short *id)
  1930. ;
  1931.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1932.         Macro
  1933.         _DataHGetMovie
  1934.             move.l              #$00080021,-(sp)
  1935.             moveq               #0,D0
  1936.             dc.w                $A82A
  1937.         EndM
  1938.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1939.         IMPORT_CFM_FUNCTION DataHGetMovie
  1940.     ENDIF
  1941.  
  1942. ;
  1943. ; pascal ComponentResult DataHAddMovie(DataHandler dh, Movie theMovie, short *id)
  1944. ;
  1945.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1946.         Macro
  1947.         _DataHAddMovie
  1948.             move.l              #$00080022,-(sp)
  1949.             moveq               #0,D0
  1950.             dc.w                $A82A
  1951.         EndM
  1952.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1953.         IMPORT_CFM_FUNCTION DataHAddMovie
  1954.     ENDIF
  1955.  
  1956. ;
  1957. ; pascal ComponentResult DataHUpdateMovie(DataHandler dh, Movie theMovie, short id)
  1958. ;
  1959.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1960.         Macro
  1961.         _DataHUpdateMovie
  1962.             move.l              #$00060023,-(sp)
  1963.             moveq               #0,D0
  1964.             dc.w                $A82A
  1965.         EndM
  1966.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1967.         IMPORT_CFM_FUNCTION DataHUpdateMovie
  1968.     ENDIF
  1969.  
  1970. ;
  1971. ; pascal ComponentResult DataHDoesBuffer(DataHandler dh, Boolean *buffersReads, Boolean *buffersWrites)
  1972. ;
  1973.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1974.         Macro
  1975.         _DataHDoesBuffer
  1976.             move.l              #$00080024,-(sp)
  1977.             moveq               #0,D0
  1978.             dc.w                $A82A
  1979.         EndM
  1980.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1981.         IMPORT_CFM_FUNCTION DataHDoesBuffer
  1982.     ENDIF
  1983.  
  1984. ;
  1985. ; pascal ComponentResult DataHGetFileName(DataHandler dh, Str255 str)
  1986. ;
  1987.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1988.         Macro
  1989.         _DataHGetFileName
  1990.             move.l              #$00040025,-(sp)
  1991.             moveq               #0,D0
  1992.             dc.w                $A82A
  1993.         EndM
  1994.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1995.         IMPORT_CFM_FUNCTION DataHGetFileName
  1996.     ENDIF
  1997.  
  1998.  
  1999.  
  2000. ;
  2001. ; pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  2002. ;
  2003.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2004.         Macro
  2005.         _DataHPlaybackHints
  2006.             move.l              #$00100103,-(sp)
  2007.             moveq               #0,D0
  2008.             dc.w                $A82A
  2009.         EndM
  2010.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2011.         IMPORT_CFM_FUNCTION DataHPlaybackHints
  2012.     ENDIF
  2013.  
  2014.  
  2015.  
  2016.  
  2017. ;  Standard type for video digitizers 
  2018.  
  2019. videoDigitizerComponentType        EQU        'vdig'
  2020. vdigInterfaceRev                EQU        2
  2021. ;  Input Format Standards 
  2022.  
  2023. ntscIn                            EQU        0                    ; current input format 
  2024. currentIn                        EQU        0                    ; ntsc input format 
  2025. palIn                            EQU        1                    ; pal input format 
  2026. secamIn                            EQU        2                    ; secam input format 
  2027. ntscReallyIn                    EQU        3                    ; ntsc input format 
  2028. ;  Input Formats 
  2029.  
  2030. compositeIn                        EQU        0                    ; input is composite format 
  2031. sVideoIn                        EQU        1                    ; input is sVideo format 
  2032. rgbComponentIn                    EQU        2                    ; input is rgb component format 
  2033. rgbComponentSyncIn                EQU        3                    ; input is rgb component format (sync on green?)
  2034. yuvComponentIn                    EQU        4                    ; input is yuv component format 
  2035. yuvComponentSyncIn                EQU        5                    ; input is yuv component format (sync on green?) 
  2036. tvTunerIn                        EQU        6
  2037.  
  2038. ;  Video Digitizer PlayThru States 
  2039.  
  2040. vdPlayThruOff                    EQU        0
  2041. vdPlayThruOn                    EQU        1
  2042. ;  Input Color Space Modes 
  2043.  
  2044. vdDigitizerBW                    EQU        0                    ; black and white 
  2045. vdDigitizerRGB                    EQU        1                    ; rgb color 
  2046. ;  Phase Lock Loop Modes 
  2047.  
  2048. vdBroadcastMode                    EQU        0                    ; Broadcast / Laser Disk video mode 
  2049. vdVTRMode                        EQU        1                    ; VCR / Magnetic media mode 
  2050. ;  Field Select Options 
  2051.  
  2052. vdUseAnyField                    EQU        0                    ; Digitizers choice on field use 
  2053. vdUseOddField                    EQU        1                    ; Use odd field for half size vert and smaller 
  2054. vdUseEvenField                    EQU        2                    ; Use even field for half size vert and smaller 
  2055. ;  vdig types 
  2056.  
  2057. vdTypeBasic                        EQU        0                    ; basic, no clipping 
  2058. vdTypeAlpha                        EQU        1                    ; supports clipping with alpha channel 
  2059. vdTypeMask                        EQU        2                    ; supports clipping with mask plane 
  2060. vdTypeKey                        EQU        3                    ; supports clipping with key color(s) 
  2061.  
  2062.  
  2063. ;  Digitizer Input Capability/Current Flags    
  2064.  
  2065. digiInDoesNTSC                    EQU        $00000001            ; digitizer supports NTSC input format 
  2066. digiInDoesPAL                    EQU        $00000002            ; digitizer supports PAL input format 
  2067. digiInDoesSECAM                    EQU        $00000004            ; digitizer supports SECAM input format 
  2068. digiInDoesGenLock                EQU        $00000080            ; digitizer does genlock 
  2069. digiInDoesComposite                EQU        $00000100            ; digitizer supports composite input type 
  2070. digiInDoesSVideo                EQU        $00000200            ; digitizer supports S-Video input type 
  2071. digiInDoesComponent                EQU        $00000400            ; digitizer supports component = rgb, input type 
  2072. digiInVTR_Broadcast                EQU        $00000800            ; digitizer can differentiate between the two 
  2073. digiInDoesColor                    EQU        $00001000            ; digitizer supports color 
  2074. digiInDoesBW                    EQU        $00002000            ; digitizer supports black & white 
  2075.                                                             ; Digitizer Input Current Flags = these are valid only during active operating conditions,    
  2076. digiInSignalLock                EQU        $80000000            ; digitizer detects input signal is locked, this bit = horiz lock || vertical lock 
  2077.  
  2078. ;  Digitizer Output Capability/Current Flags 
  2079.  
  2080. digiOutDoes1                    EQU        $00000001            ; digitizer supports 1 bit pixels 
  2081. digiOutDoes2                    EQU        $00000002            ; digitizer supports 2 bit pixels 
  2082. digiOutDoes4                    EQU        $00000004            ; digitizer supports 4 bit pixels 
  2083. digiOutDoes8                    EQU        $00000008            ; digitizer supports 8 bit pixels 
  2084. digiOutDoes16                    EQU        $00000010            ; digitizer supports 16 bit pixels 
  2085. digiOutDoes32                    EQU        $00000020            ; digitizer supports 32 bit pixels 
  2086. digiOutDoesDither                EQU        $00000040            ; digitizer dithers in indexed modes 
  2087. digiOutDoesStretch                EQU        $00000080            ; digitizer can arbitrarily stretch 
  2088. digiOutDoesShrink                EQU        $00000100            ; digitizer can arbitrarily shrink 
  2089. digiOutDoesMask                    EQU        $00000200            ; digitizer can mask to clipping regions 
  2090. digiOutDoesDouble                EQU        $00000800            ; digitizer can stretch to exactly double size 
  2091. digiOutDoesQuad                    EQU        $00001000            ; digitizer can stretch exactly quadruple size 
  2092. digiOutDoesQuarter                EQU        $00002000            ; digitizer can shrink to exactly quarter size 
  2093. digiOutDoesSixteenth            EQU        $00004000            ; digitizer can shrink to exactly sixteenth size 
  2094. digiOutDoesRotate                EQU        $00008000            ; digitizer supports rotate transformations 
  2095. digiOutDoesHorizFlip            EQU        $00010000            ; digitizer supports horizontal flips Sx < 0 
  2096. digiOutDoesVertFlip                EQU        $00020000            ; digitizer supports vertical flips Sy < 0 
  2097. digiOutDoesSkew                    EQU        $00040000            ; digitizer supports skew = shear,twist, 
  2098. digiOutDoesBlend                EQU        $00080000
  2099. digiOutDoesWarp                    EQU        $00100000
  2100. digiOutDoesHW_DMA                EQU        $00200000            ; digitizer not constrained to local device 
  2101. digiOutDoesHWPlayThru            EQU        $00400000            ; digitizer doesn't need time to play thru 
  2102. digiOutDoesILUT                    EQU        $00800000            ; digitizer does inverse LUT for index modes 
  2103. digiOutDoesKeyColor                EQU        $01000000            ; digitizer does key color functions too 
  2104. digiOutDoesAsyncGrabs            EQU        $02000000            ; digitizer supports async grabs 
  2105. digiOutDoesUnreadableScreenBits    EQU        $04000000            ; playthru doesn't generate readable bits on screen
  2106. digiOutDoesCompress                EQU        $08000000            ; supports alternate output data types 
  2107. digiOutDoesCompressOnly            EQU        $10000000            ; can't provide raw frames anywhere 
  2108. digiOutDoesPlayThruDuringCompress EQU    $20000000            ; digi can do playthru while providing compressed data 
  2109. digiOutDoesCompressPartiallyVisible EQU    $40000000            ; digi doesn't need all bits visible on screen to do hardware compress 
  2110. ;  Types 
  2111. ; typedef ComponentInstance             VideoDigitizerComponent
  2112.  
  2113. ; typedef ComponentResult                 VideoDigitizerError
  2114.  
  2115. DigitizerInfo            RECORD 0
  2116. vdigType                 ds.w    1                ; offset: $0 (0)
  2117. inputCapabilityFlags     ds.l    1                ; offset: $2 (2)
  2118. outputCapabilityFlags     ds.l    1                ; offset: $6 (6)
  2119. inputCurrentFlags         ds.l    1                ; offset: $A (10)
  2120. outputCurrentFlags         ds.l    1                ; offset: $E (14)
  2121. slot                     ds.w    1                ; offset: $12 (18)        ;  temporary for connection purposes 
  2122. gdh                         ds.l    1                ; offset: $14 (20)        ;  temporary for digitizers that have preferred screen 
  2123. maskgdh                     ds.l    1                ; offset: $18 (24)        ;  temporary for digitizers that have mask planes 
  2124. minDestHeight             ds.w    1                ; offset: $1C (28)        ;  Smallest resizable height 
  2125. minDestWidth             ds.w    1                ; offset: $1E (30)        ;  Smallest resizable width 
  2126. maxDestHeight             ds.w    1                ; offset: $20 (32)        ;  Largest resizable height 
  2127. maxDestWidth             ds.w    1                ; offset: $22 (34)        ;  Largest resizable height 
  2128. blendLevels                 ds.w    1                ; offset: $24 (36)        ;  Number of blend levels supported (2 if 1 bit mask) 
  2129. reserved                 ds.l    1                ; offset: $26 (38)        ;  reserved 
  2130. sizeof                     EQU *                    ; size:   $2A (42)
  2131.                         ENDR
  2132. VdigType                RECORD 0
  2133. digType                     ds.l    1                ; offset: $0 (0)
  2134. reserved                 ds.l    1                ; offset: $4 (4)
  2135. sizeof                     EQU *                    ; size:   $8 (8)
  2136.                         ENDR
  2137. VdigTypeList            RECORD 0
  2138. count                     ds.w    1                ; offset: $0 (0)
  2139. list                     ds        VdigType        ; offset: $2 (2) <-- really an array of length one
  2140. sizeof                     EQU *                    ; size:   $A (10)
  2141.                         ENDR
  2142. VdigBufferRec            RECORD 0
  2143. dest                     ds.l    1                ; offset: $0 (0)
  2144. location                 ds        Point            ; offset: $4 (4)
  2145. reserved                 ds.l    1                ; offset: $8 (8)
  2146. sizeof                     EQU *                    ; size:   $C (12)
  2147.                         ENDR
  2148. VdigBufferRecList        RECORD 0
  2149. count                     ds.w    1                ; offset: $0 (0)
  2150. matrix                     ds.l    1                ; offset: $2 (2)
  2151. mask                     ds.l    1                ; offset: $6 (6)
  2152. list                     ds        VdigBufferRec    ; offset: $A (10) <-- really an array of length one
  2153. sizeof                     EQU *                    ; size:   $16 (22)
  2154.                         ENDR
  2155. ; typedef struct VdigBufferRecList *    VdigBufferRecListPtr
  2156.  
  2157. ; typedef VdigBufferRecListPtr *        VdigBufferRecListHandle
  2158.  
  2159. VDCompressionList        RECORD 0
  2160. codec                     ds.l    1                ; offset: $0 (0)
  2161. cType                     ds.l    1                ; offset: $4 (4)
  2162. typeName                 ds        Str63            ; offset: $8 (8)
  2163. name                     ds        Str63            ; offset: $48 (72)
  2164. formatFlags                 ds.l    1                ; offset: $88 (136)
  2165. compressFlags             ds.l    1                ; offset: $8C (140)
  2166. reserved                 ds.l    1                ; offset: $90 (144)
  2167. sizeof                     EQU *                    ; size:   $94 (148)
  2168.                         ENDR
  2169. ; typedef struct VDCompressionList *    VDCompressionListPtr
  2170.  
  2171. ; typedef VDCompressionListPtr *        VDCompressionListHandle
  2172.  
  2173.  
  2174. dmaDepth1                        EQU        1
  2175. dmaDepth2                        EQU        2
  2176. dmaDepth4                        EQU        4
  2177. dmaDepth8                        EQU        8
  2178. dmaDepth16                        EQU        16
  2179. dmaDepth32                        EQU        32
  2180. dmaDepth2Gray                    EQU        64
  2181. dmaDepth4Gray                    EQU        128
  2182. dmaDepth8Gray                    EQU        256
  2183.  
  2184. kVDIGControlledFrameRate        EQU        -1
  2185.  
  2186. ;
  2187. ; pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  2188. ;
  2189.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2190.         Macro
  2191.         _VDGetMaxSrcRect
  2192.             move.l              #$00060001,-(sp)
  2193.             moveq               #0,D0
  2194.             dc.w                $A82A
  2195.         EndM
  2196.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2197.         IMPORT_CFM_FUNCTION VDGetMaxSrcRect
  2198.     ENDIF
  2199.  
  2200. ;
  2201. ; pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  2202. ;
  2203.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2204.         Macro
  2205.         _VDGetActiveSrcRect
  2206.             move.l              #$00060002,-(sp)
  2207.             moveq               #0,D0
  2208.             dc.w                $A82A
  2209.         EndM
  2210.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2211.         IMPORT_CFM_FUNCTION VDGetActiveSrcRect
  2212.     ENDIF
  2213.  
  2214. ;
  2215. ; pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2216. ;
  2217.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2218.         Macro
  2219.         _VDSetDigitizerRect
  2220.             move.l              #$00040003,-(sp)
  2221.             moveq               #0,D0
  2222.             dc.w                $A82A
  2223.         EndM
  2224.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2225.         IMPORT_CFM_FUNCTION VDSetDigitizerRect
  2226.     ENDIF
  2227.  
  2228. ;
  2229. ; pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2230. ;
  2231.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2232.         Macro
  2233.         _VDGetDigitizerRect
  2234.             move.l              #$00040004,-(sp)
  2235.             moveq               #0,D0
  2236.             dc.w                $A82A
  2237.         EndM
  2238.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2239.         IMPORT_CFM_FUNCTION VDGetDigitizerRect
  2240.     ENDIF
  2241.  
  2242. ;
  2243. ; pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  2244. ;
  2245.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2246.         Macro
  2247.         _VDGetVBlankRect
  2248.             move.l              #$00060005,-(sp)
  2249.             moveq               #0,D0
  2250.             dc.w                $A82A
  2251.         EndM
  2252.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2253.         IMPORT_CFM_FUNCTION VDGetVBlankRect
  2254.     ENDIF
  2255.  
  2256. ;
  2257. ; pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  2258. ;
  2259.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2260.         Macro
  2261.         _VDGetMaskPixMap
  2262.             move.l              #$00040006,-(sp)
  2263.             moveq               #0,D0
  2264.             dc.w                $A82A
  2265.         EndM
  2266.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2267.         IMPORT_CFM_FUNCTION VDGetMaskPixMap
  2268.     ENDIF
  2269.  
  2270. ;
  2271. ; pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  2272. ;
  2273.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2274.         Macro
  2275.         _VDGetPlayThruDestination
  2276.             move.l              #$00100008,-(sp)
  2277.             moveq               #0,D0
  2278.             dc.w                $A82A
  2279.         EndM
  2280.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2281.         IMPORT_CFM_FUNCTION VDGetPlayThruDestination
  2282.     ENDIF
  2283.  
  2284. ;
  2285. ; pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  2286. ;
  2287.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2288.         Macro
  2289.         _VDUseThisCLUT
  2290.             move.l              #$00040009,-(sp)
  2291.             moveq               #0,D0
  2292.             dc.w                $A82A
  2293.         EndM
  2294.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2295.         IMPORT_CFM_FUNCTION VDUseThisCLUT
  2296.     ENDIF
  2297.  
  2298. ;
  2299. ; pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  2300. ;
  2301.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2302.         Macro
  2303.         _VDSetInputGammaValue
  2304.             move.l              #$000C000A,-(sp)
  2305.             moveq               #0,D0
  2306.             dc.w                $A82A
  2307.         EndM
  2308.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2309.         IMPORT_CFM_FUNCTION VDSetInputGammaValue
  2310.     ENDIF
  2311.  
  2312. ;
  2313. ; pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  2314. ;
  2315.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2316.         Macro
  2317.         _VDGetInputGammaValue
  2318.             move.l              #$000C000B,-(sp)
  2319.             moveq               #0,D0
  2320.             dc.w                $A82A
  2321.         EndM
  2322.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2323.         IMPORT_CFM_FUNCTION VDGetInputGammaValue
  2324.     ENDIF
  2325.  
  2326. ;
  2327. ; pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2328. ;
  2329.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2330.         Macro
  2331.         _VDSetBrightness
  2332.             move.l              #$0004000C,-(sp)
  2333.             moveq               #0,D0
  2334.             dc.w                $A82A
  2335.         EndM
  2336.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2337.         IMPORT_CFM_FUNCTION VDSetBrightness
  2338.     ENDIF
  2339.  
  2340. ;
  2341. ; pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2342. ;
  2343.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2344.         Macro
  2345.         _VDGetBrightness
  2346.             move.l              #$0004000D,-(sp)
  2347.             moveq               #0,D0
  2348.             dc.w                $A82A
  2349.         EndM
  2350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2351.         IMPORT_CFM_FUNCTION VDGetBrightness
  2352.     ENDIF
  2353.  
  2354. ;
  2355. ; pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2356. ;
  2357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2358.         Macro
  2359.         _VDSetContrast
  2360.             move.l              #$0004000E,-(sp)
  2361.             moveq               #0,D0
  2362.             dc.w                $A82A
  2363.         EndM
  2364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2365.         IMPORT_CFM_FUNCTION VDSetContrast
  2366.     ENDIF
  2367.  
  2368. ;
  2369. ; pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2370. ;
  2371.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2372.         Macro
  2373.         _VDSetHue
  2374.             move.l              #$0004000F,-(sp)
  2375.             moveq               #0,D0
  2376.             dc.w                $A82A
  2377.         EndM
  2378.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2379.         IMPORT_CFM_FUNCTION VDSetHue
  2380.     ENDIF
  2381.  
  2382. ;
  2383. ; pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2384. ;
  2385.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2386.         Macro
  2387.         _VDSetSharpness
  2388.             move.l              #$00040010,-(sp)
  2389.             moveq               #0,D0
  2390.             dc.w                $A82A
  2391.         EndM
  2392.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2393.         IMPORT_CFM_FUNCTION VDSetSharpness
  2394.     ENDIF
  2395.  
  2396. ;
  2397. ; pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2398. ;
  2399.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2400.         Macro
  2401.         _VDSetSaturation
  2402.             move.l              #$00040011,-(sp)
  2403.             moveq               #0,D0
  2404.             dc.w                $A82A
  2405.         EndM
  2406.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2407.         IMPORT_CFM_FUNCTION VDSetSaturation
  2408.     ENDIF
  2409.  
  2410. ;
  2411. ; pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2412. ;
  2413.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2414.         Macro
  2415.         _VDGetContrast
  2416.             move.l              #$00040012,-(sp)
  2417.             moveq               #0,D0
  2418.             dc.w                $A82A
  2419.         EndM
  2420.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2421.         IMPORT_CFM_FUNCTION VDGetContrast
  2422.     ENDIF
  2423.  
  2424. ;
  2425. ; pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2426. ;
  2427.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2428.         Macro
  2429.         _VDGetHue
  2430.             move.l              #$00040013,-(sp)
  2431.             moveq               #0,D0
  2432.             dc.w                $A82A
  2433.         EndM
  2434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2435.         IMPORT_CFM_FUNCTION VDGetHue
  2436.     ENDIF
  2437.  
  2438. ;
  2439. ; pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2440. ;
  2441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2442.         Macro
  2443.         _VDGetSharpness
  2444.             move.l              #$00040014,-(sp)
  2445.             moveq               #0,D0
  2446.             dc.w                $A82A
  2447.         EndM
  2448.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2449.         IMPORT_CFM_FUNCTION VDGetSharpness
  2450.     ENDIF
  2451.  
  2452. ;
  2453. ; pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2454. ;
  2455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2456.         Macro
  2457.         _VDGetSaturation
  2458.             move.l              #$00040015,-(sp)
  2459.             moveq               #0,D0
  2460.             dc.w                $A82A
  2461.         EndM
  2462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2463.         IMPORT_CFM_FUNCTION VDGetSaturation
  2464.     ENDIF
  2465.  
  2466. ;
  2467. ; pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  2468. ;
  2469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2470.         Macro
  2471.         _VDGrabOneFrame
  2472.             move.l              #$00000016,-(sp)
  2473.             moveq               #0,D0
  2474.             dc.w                $A82A
  2475.         EndM
  2476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2477.         IMPORT_CFM_FUNCTION VDGrabOneFrame
  2478.     ENDIF
  2479.  
  2480. ;
  2481. ; pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  2482. ;
  2483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2484.         Macro
  2485.         _VDGetMaxAuxBuffer
  2486.             move.l              #$00080017,-(sp)
  2487.             moveq               #0,D0
  2488.             dc.w                $A82A
  2489.         EndM
  2490.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2491.         IMPORT_CFM_FUNCTION VDGetMaxAuxBuffer
  2492.     ENDIF
  2493.  
  2494. ;
  2495. ; pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  2496. ;
  2497.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2498.         Macro
  2499.         _VDGetDigitizerInfo
  2500.             move.l              #$00040019,-(sp)
  2501.             moveq               #0,D0
  2502.             dc.w                $A82A
  2503.         EndM
  2504.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2505.         IMPORT_CFM_FUNCTION VDGetDigitizerInfo
  2506.     ENDIF
  2507.  
  2508. ;
  2509. ; pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  2510. ;
  2511.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2512.         Macro
  2513.         _VDGetCurrentFlags
  2514.             move.l              #$0008001A,-(sp)
  2515.             moveq               #0,D0
  2516.             dc.w                $A82A
  2517.         EndM
  2518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2519.         IMPORT_CFM_FUNCTION VDGetCurrentFlags
  2520.     ENDIF
  2521.  
  2522. ;
  2523. ; pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  2524. ;
  2525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2526.         Macro
  2527.         _VDSetKeyColor
  2528.             move.l              #$0004001B,-(sp)
  2529.             moveq               #0,D0
  2530.             dc.w                $A82A
  2531.         EndM
  2532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2533.         IMPORT_CFM_FUNCTION VDSetKeyColor
  2534.     ENDIF
  2535.  
  2536. ;
  2537. ; pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  2538. ;
  2539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2540.         Macro
  2541.         _VDGetKeyColor
  2542.             move.l              #$0004001C,-(sp)
  2543.             moveq               #0,D0
  2544.             dc.w                $A82A
  2545.         EndM
  2546.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2547.         IMPORT_CFM_FUNCTION VDGetKeyColor
  2548.     ENDIF
  2549.  
  2550. ;
  2551. ; pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  2552. ;
  2553.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2554.         Macro
  2555.         _VDAddKeyColor
  2556.             move.l              #$0004001D,-(sp)
  2557.             moveq               #0,D0
  2558.             dc.w                $A82A
  2559.         EndM
  2560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2561.         IMPORT_CFM_FUNCTION VDAddKeyColor
  2562.     ENDIF
  2563.  
  2564. ;
  2565. ; pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  2566. ;
  2567.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2568.         Macro
  2569.         _VDGetNextKeyColor
  2570.             move.l              #$0004001E,-(sp)
  2571.             moveq               #0,D0
  2572.             dc.w                $A82A
  2573.         EndM
  2574.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2575.         IMPORT_CFM_FUNCTION VDGetNextKeyColor
  2576.     ENDIF
  2577.  
  2578. ;
  2579. ; pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  2580. ;
  2581.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2582.         Macro
  2583.         _VDSetKeyColorRange
  2584.             move.l              #$0008001F,-(sp)
  2585.             moveq               #0,D0
  2586.             dc.w                $A82A
  2587.         EndM
  2588.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2589.         IMPORT_CFM_FUNCTION VDSetKeyColorRange
  2590.     ENDIF
  2591.  
  2592. ;
  2593. ; pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  2594. ;
  2595.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2596.         Macro
  2597.         _VDGetKeyColorRange
  2598.             move.l              #$00080020,-(sp)
  2599.             moveq               #0,D0
  2600.             dc.w                $A82A
  2601.         EndM
  2602.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2603.         IMPORT_CFM_FUNCTION VDGetKeyColorRange
  2604.     ENDIF
  2605.  
  2606. ;
  2607. ; pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  2608. ;
  2609.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2610.         Macro
  2611.         _VDSetDigitizerUserInterrupt
  2612.             move.l              #$000C0021,-(sp)
  2613.             moveq               #0,D0
  2614.             dc.w                $A82A
  2615.         EndM
  2616.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2617.         IMPORT_CFM_FUNCTION VDSetDigitizerUserInterrupt
  2618.     ENDIF
  2619.  
  2620. ;
  2621. ; pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  2622. ;
  2623.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2624.         Macro
  2625.         _VDSetInputColorSpaceMode
  2626.             move.l              #$00020022,-(sp)
  2627.             moveq               #0,D0
  2628.             dc.w                $A82A
  2629.         EndM
  2630.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2631.         IMPORT_CFM_FUNCTION VDSetInputColorSpaceMode
  2632.     ENDIF
  2633.  
  2634. ;
  2635. ; pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  2636. ;
  2637.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2638.         Macro
  2639.         _VDGetInputColorSpaceMode
  2640.             move.l              #$00040023,-(sp)
  2641.             moveq               #0,D0
  2642.             dc.w                $A82A
  2643.         EndM
  2644.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2645.         IMPORT_CFM_FUNCTION VDGetInputColorSpaceMode
  2646.     ENDIF
  2647.  
  2648. ;
  2649. ; pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  2650. ;
  2651.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2652.         Macro
  2653.         _VDSetClipState
  2654.             move.l              #$00020024,-(sp)
  2655.             moveq               #0,D0
  2656.             dc.w                $A82A
  2657.         EndM
  2658.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2659.         IMPORT_CFM_FUNCTION VDSetClipState
  2660.     ENDIF
  2661.  
  2662. ;
  2663. ; pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  2664. ;
  2665.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2666.         Macro
  2667.         _VDGetClipState
  2668.             move.l              #$00040025,-(sp)
  2669.             moveq               #0,D0
  2670.             dc.w                $A82A
  2671.         EndM
  2672.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2673.         IMPORT_CFM_FUNCTION VDGetClipState
  2674.     ENDIF
  2675.  
  2676. ;
  2677. ; pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  2678. ;
  2679.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2680.         Macro
  2681.         _VDSetClipRgn
  2682.             move.l              #$00040026,-(sp)
  2683.             moveq               #0,D0
  2684.             dc.w                $A82A
  2685.         EndM
  2686.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2687.         IMPORT_CFM_FUNCTION VDSetClipRgn
  2688.     ENDIF
  2689.  
  2690. ;
  2691. ; pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  2692. ;
  2693.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2694.         Macro
  2695.         _VDClearClipRgn
  2696.             move.l              #$00040027,-(sp)
  2697.             moveq               #0,D0
  2698.             dc.w                $A82A
  2699.         EndM
  2700.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2701.         IMPORT_CFM_FUNCTION VDClearClipRgn
  2702.     ENDIF
  2703.  
  2704. ;
  2705. ; pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  2706. ;
  2707.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2708.         Macro
  2709.         _VDGetCLUTInUse
  2710.             move.l              #$00040028,-(sp)
  2711.             moveq               #0,D0
  2712.             dc.w                $A82A
  2713.         EndM
  2714.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2715.         IMPORT_CFM_FUNCTION VDGetCLUTInUse
  2716.     ENDIF
  2717.  
  2718. ;
  2719. ; pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  2720. ;
  2721.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2722.         Macro
  2723.         _VDSetPLLFilterType
  2724.             move.l              #$00020029,-(sp)
  2725.             moveq               #0,D0
  2726.             dc.w                $A82A
  2727.         EndM
  2728.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2729.         IMPORT_CFM_FUNCTION VDSetPLLFilterType
  2730.     ENDIF
  2731.  
  2732. ;
  2733. ; pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  2734. ;
  2735.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2736.         Macro
  2737.         _VDGetPLLFilterType
  2738.             move.l              #$0004002A,-(sp)
  2739.             moveq               #0,D0
  2740.             dc.w                $A82A
  2741.         EndM
  2742.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2743.         IMPORT_CFM_FUNCTION VDGetPLLFilterType
  2744.     ENDIF
  2745.  
  2746. ;
  2747. ; pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  2748. ;
  2749.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2750.         Macro
  2751.         _VDGetMaskandValue
  2752.             move.l              #$000A002B,-(sp)
  2753.             moveq               #0,D0
  2754.             dc.w                $A82A
  2755.         EndM
  2756.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2757.         IMPORT_CFM_FUNCTION VDGetMaskandValue
  2758.     ENDIF
  2759.  
  2760. ;
  2761. ; pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  2762. ;
  2763.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2764.         Macro
  2765.         _VDSetMasterBlendLevel
  2766.             move.l              #$0004002C,-(sp)
  2767.             moveq               #0,D0
  2768.             dc.w                $A82A
  2769.         EndM
  2770.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2771.         IMPORT_CFM_FUNCTION VDSetMasterBlendLevel
  2772.     ENDIF
  2773.  
  2774. ;
  2775. ; pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, Rect *destRect, MatrixRecord *m, RgnHandle mask)
  2776. ;
  2777.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2778.         Macro
  2779.         _VDSetPlayThruDestination
  2780.             move.l              #$0010002D,-(sp)
  2781.             moveq               #0,D0
  2782.             dc.w                $A82A
  2783.         EndM
  2784.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2785.         IMPORT_CFM_FUNCTION VDSetPlayThruDestination
  2786.     ENDIF
  2787.  
  2788. ;
  2789. ; pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  2790. ;
  2791.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2792.         Macro
  2793.         _VDSetPlayThruOnOff
  2794.             move.l              #$0002002E,-(sp)
  2795.             moveq               #0,D0
  2796.             dc.w                $A82A
  2797.         EndM
  2798.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2799.         IMPORT_CFM_FUNCTION VDSetPlayThruOnOff
  2800.     ENDIF
  2801.  
  2802. ;
  2803. ; pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  2804. ;
  2805.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2806.         Macro
  2807.         _VDSetFieldPreference
  2808.             move.l              #$0002002F,-(sp)
  2809.             moveq               #0,D0
  2810.             dc.w                $A82A
  2811.         EndM
  2812.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2813.         IMPORT_CFM_FUNCTION VDSetFieldPreference
  2814.     ENDIF
  2815.  
  2816. ;
  2817. ; pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  2818. ;
  2819.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2820.         Macro
  2821.         _VDGetFieldPreference
  2822.             move.l              #$00040030,-(sp)
  2823.             moveq               #0,D0
  2824.             dc.w                $A82A
  2825.         EndM
  2826.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2827.         IMPORT_CFM_FUNCTION VDGetFieldPreference
  2828.     ENDIF
  2829.  
  2830. ;
  2831. ; pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, Rect *destRect, MatrixRecord *m)
  2832. ;
  2833.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2834.         Macro
  2835.         _VDPreflightDestination
  2836.             move.l              #$00100032,-(sp)
  2837.             moveq               #0,D0
  2838.             dc.w                $A82A
  2839.         EndM
  2840.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2841.         IMPORT_CFM_FUNCTION VDPreflightDestination
  2842.     ENDIF
  2843.  
  2844. ;
  2845. ; pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  2846. ;
  2847.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2848.         Macro
  2849.         _VDPreflightGlobalRect
  2850.             move.l              #$00080033,-(sp)
  2851.             moveq               #0,D0
  2852.             dc.w                $A82A
  2853.         EndM
  2854.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2855.         IMPORT_CFM_FUNCTION VDPreflightGlobalRect
  2856.     ENDIF
  2857.  
  2858. ;
  2859. ; pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  2860. ;
  2861.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2862.         Macro
  2863.         _VDSetPlayThruGlobalRect
  2864.             move.l              #$00080034,-(sp)
  2865.             moveq               #0,D0
  2866.             dc.w                $A82A
  2867.         EndM
  2868.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2869.         IMPORT_CFM_FUNCTION VDSetPlayThruGlobalRect
  2870.     ENDIF
  2871.  
  2872. ;
  2873. ; pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  2874. ;
  2875.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2876.         Macro
  2877.         _VDSetInputGammaRecord
  2878.             move.l              #$00040035,-(sp)
  2879.             moveq               #0,D0
  2880.             dc.w                $A82A
  2881.         EndM
  2882.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2883.         IMPORT_CFM_FUNCTION VDSetInputGammaRecord
  2884.     ENDIF
  2885.  
  2886. ;
  2887. ; pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  2888. ;
  2889.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2890.         Macro
  2891.         _VDGetInputGammaRecord
  2892.             move.l              #$00040036,-(sp)
  2893.             moveq               #0,D0
  2894.             dc.w                $A82A
  2895.         EndM
  2896.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2897.         IMPORT_CFM_FUNCTION VDGetInputGammaRecord
  2898.     ENDIF
  2899.  
  2900. ;
  2901. ; pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  2902. ;
  2903.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2904.         Macro
  2905.         _VDSetBlackLevelValue
  2906.             move.l              #$00040037,-(sp)
  2907.             moveq               #0,D0
  2908.             dc.w                $A82A
  2909.         EndM
  2910.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2911.         IMPORT_CFM_FUNCTION VDSetBlackLevelValue
  2912.     ENDIF
  2913.  
  2914. ;
  2915. ; pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  2916. ;
  2917.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2918.         Macro
  2919.         _VDGetBlackLevelValue
  2920.             move.l              #$00040038,-(sp)
  2921.             moveq               #0,D0
  2922.             dc.w                $A82A
  2923.         EndM
  2924.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2925.         IMPORT_CFM_FUNCTION VDGetBlackLevelValue
  2926.     ENDIF
  2927.  
  2928. ;
  2929. ; pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  2930. ;
  2931.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2932.         Macro
  2933.         _VDSetWhiteLevelValue
  2934.             move.l              #$00040039,-(sp)
  2935.             moveq               #0,D0
  2936.             dc.w                $A82A
  2937.         EndM
  2938.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2939.         IMPORT_CFM_FUNCTION VDSetWhiteLevelValue
  2940.     ENDIF
  2941.  
  2942. ;
  2943. ; pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  2944. ;
  2945.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2946.         Macro
  2947.         _VDGetWhiteLevelValue
  2948.             move.l              #$0004003A,-(sp)
  2949.             moveq               #0,D0
  2950.             dc.w                $A82A
  2951.         EndM
  2952.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2953.         IMPORT_CFM_FUNCTION VDGetWhiteLevelValue
  2954.     ENDIF
  2955.  
  2956. ;
  2957. ; pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  2958. ;
  2959.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2960.         Macro
  2961.         _VDGetVideoDefaults
  2962.             move.l              #$001C003B,-(sp)
  2963.             moveq               #0,D0
  2964.             dc.w                $A82A
  2965.         EndM
  2966.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2967.         IMPORT_CFM_FUNCTION VDGetVideoDefaults
  2968.     ENDIF
  2969.  
  2970. ;
  2971. ; pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  2972. ;
  2973.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2974.         Macro
  2975.         _VDGetNumberOfInputs
  2976.             move.l              #$0004003C,-(sp)
  2977.             moveq               #0,D0
  2978.             dc.w                $A82A
  2979.         EndM
  2980.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2981.         IMPORT_CFM_FUNCTION VDGetNumberOfInputs
  2982.     ENDIF
  2983.  
  2984. ;
  2985. ; pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  2986. ;
  2987.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2988.         Macro
  2989.         _VDGetInputFormat
  2990.             move.l              #$0006003D,-(sp)
  2991.             moveq               #0,D0
  2992.             dc.w                $A82A
  2993.         EndM
  2994.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2995.         IMPORT_CFM_FUNCTION VDGetInputFormat
  2996.     ENDIF
  2997.  
  2998. ;
  2999. ; pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  3000. ;
  3001.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3002.         Macro
  3003.         _VDSetInput
  3004.             move.l              #$0002003E,-(sp)
  3005.             moveq               #0,D0
  3006.             dc.w                $A82A
  3007.         EndM
  3008.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3009.         IMPORT_CFM_FUNCTION VDSetInput
  3010.     ENDIF
  3011.  
  3012. ;
  3013. ; pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  3014. ;
  3015.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3016.         Macro
  3017.         _VDGetInput
  3018.             move.l              #$0004003F,-(sp)
  3019.             moveq               #0,D0
  3020.             dc.w                $A82A
  3021.         EndM
  3022.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3023.         IMPORT_CFM_FUNCTION VDGetInput
  3024.     ENDIF
  3025.  
  3026. ;
  3027. ; pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  3028. ;
  3029.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3030.         Macro
  3031.         _VDSetInputStandard
  3032.             move.l              #$00020040,-(sp)
  3033.             moveq               #0,D0
  3034.             dc.w                $A82A
  3035.         EndM
  3036.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3037.         IMPORT_CFM_FUNCTION VDSetInputStandard
  3038.     ENDIF
  3039.  
  3040. ;
  3041. ; pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  3042. ;
  3043.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3044.         Macro
  3045.         _VDSetupBuffers
  3046.             move.l              #$00040041,-(sp)
  3047.             moveq               #0,D0
  3048.             dc.w                $A82A
  3049.         EndM
  3050.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3051.         IMPORT_CFM_FUNCTION VDSetupBuffers
  3052.     ENDIF
  3053.  
  3054. ;
  3055. ; pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  3056. ;
  3057.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3058.         Macro
  3059.         _VDGrabOneFrameAsync
  3060.             move.l              #$00020042,-(sp)
  3061.             moveq               #0,D0
  3062.             dc.w                $A82A
  3063.         EndM
  3064.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3065.         IMPORT_CFM_FUNCTION VDGrabOneFrameAsync
  3066.     ENDIF
  3067.  
  3068. ;
  3069. ; pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  3070. ;
  3071.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3072.         Macro
  3073.         _VDDone
  3074.             move.l              #$00020043,-(sp)
  3075.             moveq               #0,D0
  3076.             dc.w                $A82A
  3077.         EndM
  3078.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3079.         IMPORT_CFM_FUNCTION VDDone
  3080.     ENDIF
  3081.  
  3082. ;
  3083. ; pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  3084. ;
  3085.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3086.         Macro
  3087.         _VDSetCompression
  3088.             move.l              #$00160044,-(sp)
  3089.             moveq               #0,D0
  3090.             dc.w                $A82A
  3091.         EndM
  3092.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3093.         IMPORT_CFM_FUNCTION VDSetCompression
  3094.     ENDIF
  3095.  
  3096. ;
  3097. ; pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  3098. ;
  3099.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3100.         Macro
  3101.         _VDCompressOneFrameAsync
  3102.             move.l              #$00000045,-(sp)
  3103.             moveq               #0,D0
  3104.             dc.w                $A82A
  3105.         EndM
  3106.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3107.         IMPORT_CFM_FUNCTION VDCompressOneFrameAsync
  3108.     ENDIF
  3109.  
  3110. ;
  3111. ; pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  3112. ;
  3113.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3114.         Macro
  3115.         _VDCompressDone
  3116.             move.l              #$00140046,-(sp)
  3117.             moveq               #0,D0
  3118.             dc.w                $A82A
  3119.         EndM
  3120.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3121.         IMPORT_CFM_FUNCTION VDCompressDone
  3122.     ENDIF
  3123.  
  3124. ;
  3125. ; pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  3126. ;
  3127.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3128.         Macro
  3129.         _VDReleaseCompressBuffer
  3130.             move.l              #$00040047,-(sp)
  3131.             moveq               #0,D0
  3132.             dc.w                $A82A
  3133.         EndM
  3134.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3135.         IMPORT_CFM_FUNCTION VDReleaseCompressBuffer
  3136.     ENDIF
  3137.  
  3138. ;
  3139. ; pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  3140. ;
  3141.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3142.         Macro
  3143.         _VDGetImageDescription
  3144.             move.l              #$00040048,-(sp)
  3145.             moveq               #0,D0
  3146.             dc.w                $A82A
  3147.         EndM
  3148.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3149.         IMPORT_CFM_FUNCTION VDGetImageDescription
  3150.     ENDIF
  3151.  
  3152. ;
  3153. ; pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  3154. ;
  3155.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3156.         Macro
  3157.         _VDResetCompressSequence
  3158.             move.l              #$00000049,-(sp)
  3159.             moveq               #0,D0
  3160.             dc.w                $A82A
  3161.         EndM
  3162.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3163.         IMPORT_CFM_FUNCTION VDResetCompressSequence
  3164.     ENDIF
  3165.  
  3166. ;
  3167. ; pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  3168. ;
  3169.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3170.         Macro
  3171.         _VDSetCompressionOnOff
  3172.             move.l              #$0002004A,-(sp)
  3173.             moveq               #0,D0
  3174.             dc.w                $A82A
  3175.         EndM
  3176.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3177.         IMPORT_CFM_FUNCTION VDSetCompressionOnOff
  3178.     ENDIF
  3179.  
  3180. ;
  3181. ; pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  3182. ;
  3183.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3184.         Macro
  3185.         _VDGetCompressionTypes
  3186.             move.l              #$0004004B,-(sp)
  3187.             moveq               #0,D0
  3188.             dc.w                $A82A
  3189.         EndM
  3190.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3191.         IMPORT_CFM_FUNCTION VDGetCompressionTypes
  3192.     ENDIF
  3193.  
  3194. ;
  3195. ; pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  3196. ;
  3197.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3198.         Macro
  3199.         _VDSetTimeBase
  3200.             move.l              #$0004004C,-(sp)
  3201.             moveq               #0,D0
  3202.             dc.w                $A82A
  3203.         EndM
  3204.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3205.         IMPORT_CFM_FUNCTION VDSetTimeBase
  3206.     ENDIF
  3207.  
  3208. ;
  3209. ; pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  3210. ;
  3211.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3212.         Macro
  3213.         _VDSetFrameRate
  3214.             move.l              #$0004004D,-(sp)
  3215.             moveq               #0,D0
  3216.             dc.w                $A82A
  3217.         EndM
  3218.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3219.         IMPORT_CFM_FUNCTION VDSetFrameRate
  3220.     ENDIF
  3221.  
  3222. ;
  3223. ; pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  3224. ;
  3225.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3226.         Macro
  3227.         _VDGetDataRate
  3228.             move.l              #$000C004E,-(sp)
  3229.             moveq               #0,D0
  3230.             dc.w                $A82A
  3231.         EndM
  3232.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3233.         IMPORT_CFM_FUNCTION VDGetDataRate
  3234.     ENDIF
  3235.  
  3236. ;
  3237. ; pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  3238. ;
  3239.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3240.         Macro
  3241.         _VDGetSoundInputDriver
  3242.             move.l              #$0004004F,-(sp)
  3243.             moveq               #0,D0
  3244.             dc.w                $A82A
  3245.         EndM
  3246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3247.         IMPORT_CFM_FUNCTION VDGetSoundInputDriver
  3248.     ENDIF
  3249.  
  3250. ;
  3251. ; pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  3252. ;
  3253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3254.         Macro
  3255.         _VDGetDMADepths
  3256.             move.l              #$00080050,-(sp)
  3257.             moveq               #0,D0
  3258.             dc.w                $A82A
  3259.         EndM
  3260.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3261.         IMPORT_CFM_FUNCTION VDGetDMADepths
  3262.     ENDIF
  3263.  
  3264. ;
  3265. ; pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  3266. ;
  3267.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3268.         Macro
  3269.         _VDGetPreferredTimeScale
  3270.             move.l              #$00040051,-(sp)
  3271.             moveq               #0,D0
  3272.             dc.w                $A82A
  3273.         EndM
  3274.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3275.         IMPORT_CFM_FUNCTION VDGetPreferredTimeScale
  3276.     ENDIF
  3277.  
  3278. ;
  3279. ; pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  3280. ;
  3281.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3282.         Macro
  3283.         _VDReleaseAsyncBuffers
  3284.             move.l              #$00000052,-(sp)
  3285.             moveq               #0,D0
  3286.             dc.w                $A82A
  3287.         EndM
  3288.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3289.         IMPORT_CFM_FUNCTION VDReleaseAsyncBuffers
  3290.     ENDIF
  3291.  
  3292. ;  83 is reserved for compatibility reasons 
  3293. ;
  3294. ; pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  3295. ;
  3296.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3297.         Macro
  3298.         _VDSetDataRate
  3299.             move.l              #$00040054,-(sp)
  3300.             moveq               #0,D0
  3301.             dc.w                $A82A
  3302.         EndM
  3303.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3304.         IMPORT_CFM_FUNCTION VDSetDataRate
  3305.     ENDIF
  3306.  
  3307. ;
  3308. ; pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  3309. ;
  3310.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3311.         Macro
  3312.         _VDGetTimeCode
  3313.             move.l              #$000C0055,-(sp)
  3314.             moveq               #0,D0
  3315.             dc.w                $A82A
  3316.         EndM
  3317.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3318.         IMPORT_CFM_FUNCTION VDGetTimeCode
  3319.     ENDIF
  3320.  
  3321. ;
  3322. ; pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  3323. ;
  3324.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3325.         Macro
  3326.         _VDUseSafeBuffers
  3327.             move.l              #$00020056,-(sp)
  3328.             moveq               #0,D0
  3329.             dc.w                $A82A
  3330.         EndM
  3331.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3332.         IMPORT_CFM_FUNCTION VDUseSafeBuffers
  3333.     ENDIF
  3334.  
  3335. ;
  3336. ; pascal VideoDigitizerError VDGetSoundInputSource(VideoDigitizerComponent ci, long videoInput, long *soundInput)
  3337. ;
  3338.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3339.         Macro
  3340.         _VDGetSoundInputSource
  3341.             move.l              #$00080057,-(sp)
  3342.             moveq               #0,D0
  3343.             dc.w                $A82A
  3344.         EndM
  3345.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3346.         IMPORT_CFM_FUNCTION VDGetSoundInputSource
  3347.     ENDIF
  3348.  
  3349. ;
  3350. ; pascal VideoDigitizerError VDGetCompressionTime(VideoDigitizerComponent ci, OSType compressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, unsigned long *compressTime)
  3351. ;
  3352.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3353.         Macro
  3354.         _VDGetCompressionTime
  3355.             move.l              #$00160058,-(sp)
  3356.             moveq               #0,D0
  3357.             dc.w                $A82A
  3358.         EndM
  3359.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3360.         IMPORT_CFM_FUNCTION VDGetCompressionTime
  3361.     ENDIF
  3362.  
  3363. ;
  3364. ; pascal VideoDigitizerError VDSetPreferredPacketSize(VideoDigitizerComponent ci, long preferredPacketSizeInBytes)
  3365. ;
  3366.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3367.         Macro
  3368.         _VDSetPreferredPacketSize
  3369.             move.l              #$00040059,-(sp)
  3370.             moveq               #0,D0
  3371.             dc.w                $A82A
  3372.         EndM
  3373.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3374.         IMPORT_CFM_FUNCTION VDSetPreferredPacketSize
  3375.     ENDIF
  3376.  
  3377.  
  3378.  
  3379. ;    General Sequence Grab stuff
  3380. ;
  3381.  
  3382. ; typedef ComponentInstance             SeqGrabComponent
  3383.  
  3384. ; typedef ComponentInstance             SGChannel
  3385.  
  3386.  
  3387. SeqGrabComponentType            EQU        'barg'
  3388. SeqGrabChannelType                EQU        'sgch'
  3389. SeqGrabPanelType                EQU        'sgpn'
  3390. SeqGrabCompressionPanelType        EQU        'cmpr'
  3391. SeqGrabSourcePanelType            EQU        'sour'
  3392.  
  3393. seqGrabToDisk                    EQU        1
  3394. seqGrabToMemory                    EQU        2
  3395. seqGrabDontUseTempMemory        EQU        4
  3396. seqGrabAppendToFile                EQU        8
  3397. seqGrabDontAddMovieResource        EQU        16
  3398. seqGrabDontMakeMovie            EQU        32
  3399. seqGrabPreExtendFile            EQU        64
  3400. seqGrabDataProcIsInterruptSafe    EQU        128
  3401. seqGrabDataProcDoesOverlappingReads EQU    256
  3402. ; typedef unsigned long                 SeqGrabDataOutputEnum
  3403.  
  3404.  
  3405. seqGrabRecord                    EQU        1
  3406. seqGrabPreview                    EQU        2
  3407. seqGrabPlayDuringRecord            EQU        4
  3408. ; typedef unsigned long                 SeqGrabUsageEnum
  3409.  
  3410.  
  3411. seqGrabHasBounds                EQU        1
  3412. seqGrabHasVolume                EQU        2
  3413. seqGrabHasDiscreteSamples        EQU        4
  3414. ; typedef unsigned long                 SeqGrabChannelInfoEnum
  3415.  
  3416. SeqGrabFrameInfo        RECORD 0
  3417. frameOffset                 ds.l    1                ; offset: $0 (0)
  3418. frameTime                 ds.l    1                ; offset: $4 (4)
  3419. frameSize                 ds.l    1                ; offset: $8 (8)
  3420. frameChannel             ds.l    1                ; offset: $C (12)
  3421. frameRefCon                 ds.l    1                ; offset: $10 (16)
  3422. sizeof                     EQU *                    ; size:   $14 (20)
  3423.                         ENDR
  3424. ; typedef struct SeqGrabFrameInfo *        SeqGrabFrameInfoPtr
  3425.  
  3426.  
  3427. grabPictOffScreen                EQU        1
  3428. grabPictIgnoreClip                EQU        2
  3429. grabPictCurrentImage            EQU        4
  3430.  
  3431. sgFlagControlledGrab            EQU        $01
  3432. SGDeviceName            RECORD 0
  3433. name                     ds        Str63            ; offset: $0 (0)
  3434. icon                     ds.l    1                ; offset: $40 (64)
  3435. flags                     ds.l    1                ; offset: $44 (68)
  3436. refCon                     ds.l    1                ; offset: $48 (72)
  3437. reserved                 ds.l    1                ; offset: $4C (76)        ;  zero
  3438. sizeof                     EQU *                    ; size:   $50 (80)
  3439.                         ENDR
  3440.  
  3441. sgDeviceNameFlagDeviceUnavailable EQU    $01
  3442. SGDeviceListRecord        RECORD 0
  3443. count                     ds.w    1                ; offset: $0 (0)
  3444. selectedIndex             ds.w    1                ; offset: $2 (2)
  3445. reserved                 ds.l    1                ; offset: $4 (4)        ;  zero
  3446. entry                     ds        SGDeviceName    ; offset: $8 (8) <-- really an array of length one
  3447. sizeof                     EQU *                    ; size:   $58 (88)
  3448.                         ENDR
  3449. ; typedef struct SGDeviceListRecord *    SGDeviceListPtr
  3450.  
  3451. ; typedef SGDeviceListPtr *                SGDeviceList
  3452.  
  3453.  
  3454. sgDeviceListWithIcons            EQU        $01
  3455. sgDeviceListDontCheckAvailability EQU    $02
  3456.  
  3457. seqGrabWriteAppend                EQU        0
  3458. seqGrabWriteReserve                EQU        1
  3459. seqGrabWriteFill                EQU        2
  3460.  
  3461. seqGrabUnpause                    EQU        0
  3462. seqGrabPause                    EQU        1
  3463. seqGrabPauseForMenu                EQU        3
  3464.  
  3465. channelFlagDontOpenResFile        EQU        2
  3466. channelFlagHasDependency        EQU        4
  3467.  
  3468. sgPanelFlagForPanel                EQU        1
  3469.  
  3470. seqGrabSettingsPreviewOnly        EQU        1
  3471. SGOutputRecord            RECORD 0
  3472. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  3473. sizeof                     EQU *                    ; size:   $4 (4)
  3474.                         ENDR
  3475. ; typedef struct SGOutputRecord *        SGOutput
  3476.  
  3477.  
  3478. channelPlayNormal                EQU        0
  3479. channelPlayFast                    EQU        1
  3480. channelPlayHighQuality            EQU        2
  3481. channelPlayAllData                EQU        4
  3482.  
  3483. ;
  3484. ; pascal ComponentResult SGInitialize(SeqGrabComponent s)
  3485. ;
  3486.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3487.         Macro
  3488.         _SGInitialize
  3489.             move.l              #$00000001,-(sp)
  3490.             moveq               #0,D0
  3491.             dc.w                $A82A
  3492.         EndM
  3493.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3494.         IMPORT_CFM_FUNCTION SGInitialize
  3495.     ENDIF
  3496.  
  3497. ;
  3498. ; pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  3499. ;
  3500.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3501.         Macro
  3502.         _SGSetDataOutput
  3503.             move.l              #$00080002,-(sp)
  3504.             moveq               #0,D0
  3505.             dc.w                $A82A
  3506.         EndM
  3507.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3508.         IMPORT_CFM_FUNCTION SGSetDataOutput
  3509.     ENDIF
  3510.  
  3511. ;
  3512. ; pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  3513. ;
  3514.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3515.         Macro
  3516.         _SGGetDataOutput
  3517.             move.l              #$00080003,-(sp)
  3518.             moveq               #0,D0
  3519.             dc.w                $A82A
  3520.         EndM
  3521.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3522.         IMPORT_CFM_FUNCTION SGGetDataOutput
  3523.     ENDIF
  3524.  
  3525. ;
  3526. ; pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  3527. ;
  3528.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3529.         Macro
  3530.         _SGSetGWorld
  3531.             move.l              #$00080004,-(sp)
  3532.             moveq               #0,D0
  3533.             dc.w                $A82A
  3534.         EndM
  3535.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3536.         IMPORT_CFM_FUNCTION SGSetGWorld
  3537.     ENDIF
  3538.  
  3539. ;
  3540. ; pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  3541. ;
  3542.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3543.         Macro
  3544.         _SGGetGWorld
  3545.             move.l              #$00080005,-(sp)
  3546.             moveq               #0,D0
  3547.             dc.w                $A82A
  3548.         EndM
  3549.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3550.         IMPORT_CFM_FUNCTION SGGetGWorld
  3551.     ENDIF
  3552.  
  3553. ;
  3554. ; pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  3555. ;
  3556.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3557.         Macro
  3558.         _SGNewChannel
  3559.             move.l              #$00080006,-(sp)
  3560.             moveq               #0,D0
  3561.             dc.w                $A82A
  3562.         EndM
  3563.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3564.         IMPORT_CFM_FUNCTION SGNewChannel
  3565.     ENDIF
  3566.  
  3567. ;
  3568. ; pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  3569. ;
  3570.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3571.         Macro
  3572.         _SGDisposeChannel
  3573.             move.l              #$00040007,-(sp)
  3574.             moveq               #0,D0
  3575.             dc.w                $A82A
  3576.         EndM
  3577.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3578.         IMPORT_CFM_FUNCTION SGDisposeChannel
  3579.     ENDIF
  3580.  
  3581. ;
  3582. ; pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  3583. ;
  3584.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3585.         Macro
  3586.         _SGStartPreview
  3587.             move.l              #$00000010,-(sp)
  3588.             moveq               #0,D0
  3589.             dc.w                $A82A
  3590.         EndM
  3591.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3592.         IMPORT_CFM_FUNCTION SGStartPreview
  3593.     ENDIF
  3594.  
  3595. ;
  3596. ; pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  3597. ;
  3598.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3599.         Macro
  3600.         _SGStartRecord
  3601.             move.l              #$00000011,-(sp)
  3602.             moveq               #0,D0
  3603.             dc.w                $A82A
  3604.         EndM
  3605.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3606.         IMPORT_CFM_FUNCTION SGStartRecord
  3607.     ENDIF
  3608.  
  3609. ;
  3610. ; pascal ComponentResult SGIdle(SeqGrabComponent s)
  3611. ;
  3612.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3613.         Macro
  3614.         _SGIdle
  3615.             move.l              #$00000012,-(sp)
  3616.             moveq               #0,D0
  3617.             dc.w                $A82A
  3618.         EndM
  3619.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3620.         IMPORT_CFM_FUNCTION SGIdle
  3621.     ENDIF
  3622.  
  3623. ;
  3624. ; pascal ComponentResult SGStop(SeqGrabComponent s)
  3625. ;
  3626.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3627.         Macro
  3628.         _SGStop
  3629.             move.l              #$00000013,-(sp)
  3630.             moveq               #0,D0
  3631.             dc.w                $A82A
  3632.         EndM
  3633.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3634.         IMPORT_CFM_FUNCTION SGStop
  3635.     ENDIF
  3636.  
  3637. ;
  3638. ; pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  3639. ;
  3640.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3641.         Macro
  3642.         _SGPause
  3643.             move.l              #$00020014,-(sp)
  3644.             moveq               #0,D0
  3645.             dc.w                $A82A
  3646.         EndM
  3647.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3648.         IMPORT_CFM_FUNCTION SGPause
  3649.     ENDIF
  3650.  
  3651. ;
  3652. ; pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  3653. ;
  3654.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3655.         Macro
  3656.         _SGPrepare
  3657.             move.l              #$00040015,-(sp)
  3658.             moveq               #0,D0
  3659.             dc.w                $A82A
  3660.         EndM
  3661.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3662.         IMPORT_CFM_FUNCTION SGPrepare
  3663.     ENDIF
  3664.  
  3665. ;
  3666. ; pascal ComponentResult SGRelease(SeqGrabComponent s)
  3667. ;
  3668.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3669.         Macro
  3670.         _SGRelease
  3671.             move.l              #$00000016,-(sp)
  3672.             moveq               #0,D0
  3673.             dc.w                $A82A
  3674.         EndM
  3675.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3676.         IMPORT_CFM_FUNCTION SGRelease
  3677.     ENDIF
  3678.  
  3679. ;
  3680. ; pascal Movie SGGetMovie(SeqGrabComponent s)
  3681. ;
  3682.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3683.         Macro
  3684.         _SGGetMovie
  3685.             move.l              #$00000017,-(sp)
  3686.             moveq               #0,D0
  3687.             dc.w                $A82A
  3688.         EndM
  3689.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3690.         IMPORT_CFM_FUNCTION SGGetMovie
  3691.     ENDIF
  3692.  
  3693. ;
  3694. ; pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  3695. ;
  3696.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3697.         Macro
  3698.         _SGSetMaximumRecordTime
  3699.             move.l              #$00040018,-(sp)
  3700.             moveq               #0,D0
  3701.             dc.w                $A82A
  3702.         EndM
  3703.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3704.         IMPORT_CFM_FUNCTION SGSetMaximumRecordTime
  3705.     ENDIF
  3706.  
  3707. ;
  3708. ; pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  3709. ;
  3710.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3711.         Macro
  3712.         _SGGetMaximumRecordTime
  3713.             move.l              #$00040019,-(sp)
  3714.             moveq               #0,D0
  3715.             dc.w                $A82A
  3716.         EndM
  3717.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3718.         IMPORT_CFM_FUNCTION SGGetMaximumRecordTime
  3719.     ENDIF
  3720.  
  3721. ;
  3722. ; pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  3723. ;
  3724.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3725.         Macro
  3726.         _SGGetStorageSpaceRemaining
  3727.             move.l              #$0004001A,-(sp)
  3728.             moveq               #0,D0
  3729.             dc.w                $A82A
  3730.         EndM
  3731.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3732.         IMPORT_CFM_FUNCTION SGGetStorageSpaceRemaining
  3733.     ENDIF
  3734.  
  3735. ;
  3736. ; pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  3737. ;
  3738.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3739.         Macro
  3740.         _SGGetTimeRemaining
  3741.             move.l              #$0004001B,-(sp)
  3742.             moveq               #0,D0
  3743.             dc.w                $A82A
  3744.         EndM
  3745.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3746.         IMPORT_CFM_FUNCTION SGGetTimeRemaining
  3747.     ENDIF
  3748.  
  3749. ;
  3750. ; pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  3751. ;
  3752.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3753.         Macro
  3754.         _SGGrabPict
  3755.             move.l              #$000E001C,-(sp)
  3756.             moveq               #0,D0
  3757.             dc.w                $A82A
  3758.         EndM
  3759.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3760.         IMPORT_CFM_FUNCTION SGGrabPict
  3761.     ENDIF
  3762.  
  3763. ;
  3764. ; pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  3765. ;
  3766.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3767.         Macro
  3768.         _SGGetLastMovieResID
  3769.             move.l              #$0004001D,-(sp)
  3770.             moveq               #0,D0
  3771.             dc.w                $A82A
  3772.         EndM
  3773.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3774.         IMPORT_CFM_FUNCTION SGGetLastMovieResID
  3775.     ENDIF
  3776.  
  3777. ;
  3778. ; pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  3779. ;
  3780.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3781.         Macro
  3782.         _SGSetFlags
  3783.             move.l              #$0004001E,-(sp)
  3784.             moveq               #0,D0
  3785.             dc.w                $A82A
  3786.         EndM
  3787.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3788.         IMPORT_CFM_FUNCTION SGSetFlags
  3789.     ENDIF
  3790.  
  3791. ;
  3792. ; pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  3793. ;
  3794.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3795.         Macro
  3796.         _SGGetFlags
  3797.             move.l              #$0004001F,-(sp)
  3798.             moveq               #0,D0
  3799.             dc.w                $A82A
  3800.         EndM
  3801.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3802.         IMPORT_CFM_FUNCTION SGGetFlags
  3803.     ENDIF
  3804.  
  3805. ;
  3806. ; pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  3807. ;
  3808.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3809.         Macro
  3810.         _SGSetDataProc
  3811.             move.l              #$00080020,-(sp)
  3812.             moveq               #0,D0
  3813.             dc.w                $A82A
  3814.         EndM
  3815.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3816.         IMPORT_CFM_FUNCTION SGSetDataProc
  3817.     ENDIF
  3818.  
  3819. ;
  3820. ; pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  3821. ;
  3822.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3823.         Macro
  3824.         _SGNewChannelFromComponent
  3825.             move.l              #$00080021,-(sp)
  3826.             moveq               #0,D0
  3827.             dc.w                $A82A
  3828.         EndM
  3829.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3830.         IMPORT_CFM_FUNCTION SGNewChannelFromComponent
  3831.     ENDIF
  3832.  
  3833. ;
  3834. ; pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  3835. ;
  3836.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3837.         Macro
  3838.         _SGDisposeDeviceList
  3839.             move.l              #$00040022,-(sp)
  3840.             moveq               #0,D0
  3841.             dc.w                $A82A
  3842.         EndM
  3843.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3844.         IMPORT_CFM_FUNCTION SGDisposeDeviceList
  3845.     ENDIF
  3846.  
  3847. ;
  3848. ; pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  3849. ;
  3850.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3851.         Macro
  3852.         _SGAppendDeviceListToMenu
  3853.             move.l              #$00080023,-(sp)
  3854.             moveq               #0,D0
  3855.             dc.w                $A82A
  3856.         EndM
  3857.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3858.         IMPORT_CFM_FUNCTION SGAppendDeviceListToMenu
  3859.     ENDIF
  3860.  
  3861. ;
  3862. ; pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  3863. ;
  3864.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3865.         Macro
  3866.         _SGSetSettings
  3867.             move.l              #$00080024,-(sp)
  3868.             moveq               #0,D0
  3869.             dc.w                $A82A
  3870.         EndM
  3871.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3872.         IMPORT_CFM_FUNCTION SGSetSettings
  3873.     ENDIF
  3874.  
  3875. ;
  3876. ; pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  3877. ;
  3878.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3879.         Macro
  3880.         _SGGetSettings
  3881.             move.l              #$00080025,-(sp)
  3882.             moveq               #0,D0
  3883.             dc.w                $A82A
  3884.         EndM
  3885.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3886.         IMPORT_CFM_FUNCTION SGGetSettings
  3887.     ENDIF
  3888.  
  3889. ;
  3890. ; pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  3891. ;
  3892.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3893.         Macro
  3894.         _SGGetIndChannel
  3895.             move.l              #$000A0026,-(sp)
  3896.             moveq               #0,D0
  3897.             dc.w                $A82A
  3898.         EndM
  3899.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3900.         IMPORT_CFM_FUNCTION SGGetIndChannel
  3901.     ENDIF
  3902.  
  3903. ;
  3904. ; pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  3905. ;
  3906.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3907.         Macro
  3908.         _SGUpdate
  3909.             move.l              #$00040027,-(sp)
  3910.             moveq               #0,D0
  3911.             dc.w                $A82A
  3912.         EndM
  3913.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3914.         IMPORT_CFM_FUNCTION SGUpdate
  3915.     ENDIF
  3916.  
  3917. ;
  3918. ; pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  3919. ;
  3920.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3921.         Macro
  3922.         _SGGetPause
  3923.             move.l              #$00040028,-(sp)
  3924.             moveq               #0,D0
  3925.             dc.w                $A82A
  3926.         EndM
  3927.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3928.         IMPORT_CFM_FUNCTION SGGetPause
  3929.     ENDIF
  3930.  
  3931. ; typedef const Component *                ConstComponentListPtr
  3932.  
  3933. ;
  3934. ; pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, ConstComponentListPtr panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  3935. ;
  3936.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3937.         Macro
  3938.         _SGSettingsDialog
  3939.             move.l              #$00160029,-(sp)
  3940.             moveq               #0,D0
  3941.             dc.w                $A82A
  3942.         EndM
  3943.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3944.         IMPORT_CFM_FUNCTION SGSettingsDialog
  3945.     ENDIF
  3946.  
  3947. ;
  3948. ; pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  3949. ;
  3950.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3951.         Macro
  3952.         _SGGetAlignmentProc
  3953.             move.l              #$0004002A,-(sp)
  3954.             moveq               #0,D0
  3955.             dc.w                $A82A
  3956.         EndM
  3957.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3958.         IMPORT_CFM_FUNCTION SGGetAlignmentProc
  3959.     ENDIF
  3960.  
  3961. ;
  3962. ; pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  3963. ;
  3964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3965.         Macro
  3966.         _SGSetChannelSettings
  3967.             move.l              #$000C002B,-(sp)
  3968.             moveq               #0,D0
  3969.             dc.w                $A82A
  3970.         EndM
  3971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3972.         IMPORT_CFM_FUNCTION SGSetChannelSettings
  3973.     ENDIF
  3974.  
  3975. ;
  3976. ; pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  3977. ;
  3978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3979.         Macro
  3980.         _SGGetChannelSettings
  3981.             move.l              #$000C002C,-(sp)
  3982.             moveq               #0,D0
  3983.             dc.w                $A82A
  3984.         EndM
  3985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3986.         IMPORT_CFM_FUNCTION SGGetChannelSettings
  3987.     ENDIF
  3988.  
  3989. ;
  3990. ; pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  3991. ;
  3992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3993.         Macro
  3994.         _SGGetMode
  3995.             move.l              #$0008002D,-(sp)
  3996.             moveq               #0,D0
  3997.             dc.w                $A82A
  3998.         EndM
  3999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4000.         IMPORT_CFM_FUNCTION SGGetMode
  4001.     ENDIF
  4002.  
  4003. ;
  4004. ; pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  4005. ;
  4006.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4007.         Macro
  4008.         _SGSetDataRef
  4009.             move.l              #$000C002E,-(sp)
  4010.             moveq               #0,D0
  4011.             dc.w                $A82A
  4012.         EndM
  4013.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4014.         IMPORT_CFM_FUNCTION SGSetDataRef
  4015.     ENDIF
  4016.  
  4017. ;
  4018. ; pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  4019. ;
  4020.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4021.         Macro
  4022.         _SGGetDataRef
  4023.             move.l              #$000C002F,-(sp)
  4024.             moveq               #0,D0
  4025.             dc.w                $A82A
  4026.         EndM
  4027.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4028.         IMPORT_CFM_FUNCTION SGGetDataRef
  4029.     ENDIF
  4030.  
  4031. ;
  4032. ; pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *sgOut)
  4033. ;
  4034.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4035.         Macro
  4036.         _SGNewOutput
  4037.             move.l              #$00100030,-(sp)
  4038.             moveq               #0,D0
  4039.             dc.w                $A82A
  4040.         EndM
  4041.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4042.         IMPORT_CFM_FUNCTION SGNewOutput
  4043.     ENDIF
  4044.  
  4045. ;
  4046. ; pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput sgOut)
  4047. ;
  4048.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4049.         Macro
  4050.         _SGDisposeOutput
  4051.             move.l              #$00040031,-(sp)
  4052.             moveq               #0,D0
  4053.             dc.w                $A82A
  4054.         EndM
  4055.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4056.         IMPORT_CFM_FUNCTION SGDisposeOutput
  4057.     ENDIF
  4058.  
  4059. ;
  4060. ; pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput sgOut, long whereFlags)
  4061. ;
  4062.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4063.         Macro
  4064.         _SGSetOutputFlags
  4065.             move.l              #$00080032,-(sp)
  4066.             moveq               #0,D0
  4067.             dc.w                $A82A
  4068.         EndM
  4069.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4070.         IMPORT_CFM_FUNCTION SGSetOutputFlags
  4071.     ENDIF
  4072.  
  4073. ;
  4074. ; pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput sgOut)
  4075. ;
  4076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4077.         Macro
  4078.         _SGSetChannelOutput
  4079.             move.l              #$00080033,-(sp)
  4080.             moveq               #0,D0
  4081.             dc.w                $A82A
  4082.         EndM
  4083.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4084.         IMPORT_CFM_FUNCTION SGSetChannelOutput
  4085.     ENDIF
  4086.  
  4087. ;
  4088. ; pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput sgOut, unsigned long *space)
  4089. ;
  4090.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4091.         Macro
  4092.         _SGGetDataOutputStorageSpaceRemaining
  4093.             move.l              #$00080034,-(sp)
  4094.             moveq               #0,D0
  4095.             dc.w                $A82A
  4096.         EndM
  4097.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4098.         IMPORT_CFM_FUNCTION SGGetDataOutputStorageSpaceRemaining
  4099.     ENDIF
  4100.  
  4101. ;
  4102. ; pascal ComponentResult SGHandleUpdateEvent(SeqGrabComponent s, EventRecord *event, Boolean *handled)
  4103. ;
  4104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4105.         Macro
  4106.         _SGHandleUpdateEvent
  4107.             move.l              #$00080035,-(sp)
  4108.             moveq               #0,D0
  4109.             dc.w                $A82A
  4110.         EndM
  4111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4112.         IMPORT_CFM_FUNCTION SGHandleUpdateEvent
  4113.     ENDIF
  4114.  
  4115. ;    calls from Channel to seqGrab
  4116. ;
  4117.  
  4118. ;
  4119. ; pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  4120. ;
  4121.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4122.         Macro
  4123.         _SGWriteMovieData
  4124.             move.l              #$00100100,-(sp)
  4125.             moveq               #0,D0
  4126.             dc.w                $A82A
  4127.         EndM
  4128.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4129.         IMPORT_CFM_FUNCTION SGWriteMovieData
  4130.     ENDIF
  4131.  
  4132. ;
  4133. ; pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  4134. ;
  4135.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4136.         Macro
  4137.         _SGAddFrameReference
  4138.             move.l              #$00040101,-(sp)
  4139.             moveq               #0,D0
  4140.             dc.w                $A82A
  4141.         EndM
  4142.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4143.         IMPORT_CFM_FUNCTION SGAddFrameReference
  4144.     ENDIF
  4145.  
  4146. ;
  4147. ; pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4148. ;
  4149.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4150.         Macro
  4151.         _SGGetNextFrameReference
  4152.             move.l              #$000C0102,-(sp)
  4153.             moveq               #0,D0
  4154.             dc.w                $A82A
  4155.         EndM
  4156.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4157.         IMPORT_CFM_FUNCTION SGGetNextFrameReference
  4158.     ENDIF
  4159.  
  4160. ;
  4161. ; pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  4162. ;
  4163.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4164.         Macro
  4165.         _SGGetTimeBase
  4166.             move.l              #$00040103,-(sp)
  4167.             moveq               #0,D0
  4168.             dc.w                $A82A
  4169.         EndM
  4170.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4171.         IMPORT_CFM_FUNCTION SGGetTimeBase
  4172.     ENDIF
  4173.  
  4174. ;
  4175. ; pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  4176. ;
  4177.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4178.         Macro
  4179.         _SGSortDeviceList
  4180.             move.l              #$00040104,-(sp)
  4181.             moveq               #0,D0
  4182.             dc.w                $A82A
  4183.         EndM
  4184.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4185.         IMPORT_CFM_FUNCTION SGSortDeviceList
  4186.     ENDIF
  4187.  
  4188. ;
  4189. ; pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  4190. ;
  4191.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4192.         Macro
  4193.         _SGAddMovieData
  4194.             move.l              #$001A0105,-(sp)
  4195.             moveq               #0,D0
  4196.             dc.w                $A82A
  4197.         EndM
  4198.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4199.         IMPORT_CFM_FUNCTION SGAddMovieData
  4200.     ENDIF
  4201.  
  4202. ;
  4203. ; pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  4204. ;
  4205.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4206.         Macro
  4207.         _SGChangedSource
  4208.             move.l              #$00040106,-(sp)
  4209.             moveq               #0,D0
  4210.             dc.w                $A82A
  4211.         EndM
  4212.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4213.         IMPORT_CFM_FUNCTION SGChangedSource
  4214.     ENDIF
  4215.  
  4216.  
  4217.  
  4218. ; ** Sequence Grab CHANNEL Component Stuff **
  4219.  
  4220. ;
  4221. ; pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  4222. ;
  4223.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4224.         Macro
  4225.         _SGSetChannelUsage
  4226.             move.l              #$00040080,-(sp)
  4227.             moveq               #0,D0
  4228.             dc.w                $A82A
  4229.         EndM
  4230.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4231.         IMPORT_CFM_FUNCTION SGSetChannelUsage
  4232.     ENDIF
  4233.  
  4234. ;
  4235. ; pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  4236. ;
  4237.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4238.         Macro
  4239.         _SGGetChannelUsage
  4240.             move.l              #$00040081,-(sp)
  4241.             moveq               #0,D0
  4242.             dc.w                $A82A
  4243.         EndM
  4244.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4245.         IMPORT_CFM_FUNCTION SGGetChannelUsage
  4246.     ENDIF
  4247.  
  4248. ;
  4249. ; pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  4250. ;
  4251.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4252.         Macro
  4253.         _SGSetChannelBounds
  4254.             move.l              #$00040082,-(sp)
  4255.             moveq               #0,D0
  4256.             dc.w                $A82A
  4257.         EndM
  4258.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4259.         IMPORT_CFM_FUNCTION SGSetChannelBounds
  4260.     ENDIF
  4261.  
  4262. ;
  4263. ; pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  4264. ;
  4265.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4266.         Macro
  4267.         _SGGetChannelBounds
  4268.             move.l              #$00040083,-(sp)
  4269.             moveq               #0,D0
  4270.             dc.w                $A82A
  4271.         EndM
  4272.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4273.         IMPORT_CFM_FUNCTION SGGetChannelBounds
  4274.     ENDIF
  4275.  
  4276. ;
  4277. ; pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  4278. ;
  4279.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4280.         Macro
  4281.         _SGSetChannelVolume
  4282.             move.l              #$00020084,-(sp)
  4283.             moveq               #0,D0
  4284.             dc.w                $A82A
  4285.         EndM
  4286.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4287.         IMPORT_CFM_FUNCTION SGSetChannelVolume
  4288.     ENDIF
  4289.  
  4290. ;
  4291. ; pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  4292. ;
  4293.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4294.         Macro
  4295.         _SGGetChannelVolume
  4296.             move.l              #$00040085,-(sp)
  4297.             moveq               #0,D0
  4298.             dc.w                $A82A
  4299.         EndM
  4300.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4301.         IMPORT_CFM_FUNCTION SGGetChannelVolume
  4302.     ENDIF
  4303.  
  4304. ;
  4305. ; pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  4306. ;
  4307.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4308.         Macro
  4309.         _SGGetChannelInfo
  4310.             move.l              #$00040086,-(sp)
  4311.             moveq               #0,D0
  4312.             dc.w                $A82A
  4313.         EndM
  4314.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4315.         IMPORT_CFM_FUNCTION SGGetChannelInfo
  4316.     ENDIF
  4317.  
  4318. ;
  4319. ; pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  4320. ;
  4321.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4322.         Macro
  4323.         _SGSetChannelPlayFlags
  4324.             move.l              #$00040087,-(sp)
  4325.             moveq               #0,D0
  4326.             dc.w                $A82A
  4327.         EndM
  4328.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4329.         IMPORT_CFM_FUNCTION SGSetChannelPlayFlags
  4330.     ENDIF
  4331.  
  4332. ;
  4333. ; pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  4334. ;
  4335.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4336.         Macro
  4337.         _SGGetChannelPlayFlags
  4338.             move.l              #$00040088,-(sp)
  4339.             moveq               #0,D0
  4340.             dc.w                $A82A
  4341.         EndM
  4342.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4343.         IMPORT_CFM_FUNCTION SGGetChannelPlayFlags
  4344.     ENDIF
  4345.  
  4346. ;
  4347. ; pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  4348. ;
  4349.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4350.         Macro
  4351.         _SGSetChannelMaxFrames
  4352.             move.l              #$00040089,-(sp)
  4353.             moveq               #0,D0
  4354.             dc.w                $A82A
  4355.         EndM
  4356.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4357.         IMPORT_CFM_FUNCTION SGSetChannelMaxFrames
  4358.     ENDIF
  4359.  
  4360. ;
  4361. ; pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  4362. ;
  4363.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4364.         Macro
  4365.         _SGGetChannelMaxFrames
  4366.             move.l              #$0004008A,-(sp)
  4367.             moveq               #0,D0
  4368.             dc.w                $A82A
  4369.         EndM
  4370.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4371.         IMPORT_CFM_FUNCTION SGGetChannelMaxFrames
  4372.     ENDIF
  4373.  
  4374. ;
  4375. ; pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  4376. ;
  4377.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4378.         Macro
  4379.         _SGSetChannelRefCon
  4380.             move.l              #$0004008B,-(sp)
  4381.             moveq               #0,D0
  4382.             dc.w                $A82A
  4383.         EndM
  4384.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4385.         IMPORT_CFM_FUNCTION SGSetChannelRefCon
  4386.     ENDIF
  4387.  
  4388. ;
  4389. ; pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  4390. ;
  4391.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4392.         Macro
  4393.         _SGSetChannelClip
  4394.             move.l              #$0004008C,-(sp)
  4395.             moveq               #0,D0
  4396.             dc.w                $A82A
  4397.         EndM
  4398.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4399.         IMPORT_CFM_FUNCTION SGSetChannelClip
  4400.     ENDIF
  4401.  
  4402. ;
  4403. ; pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  4404. ;
  4405.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4406.         Macro
  4407.         _SGGetChannelClip
  4408.             move.l              #$0004008D,-(sp)
  4409.             moveq               #0,D0
  4410.             dc.w                $A82A
  4411.         EndM
  4412.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4413.         IMPORT_CFM_FUNCTION SGGetChannelClip
  4414.     ENDIF
  4415.  
  4416. ;
  4417. ; pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  4418. ;
  4419.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4420.         Macro
  4421.         _SGGetChannelSampleDescription
  4422.             move.l              #$0004008E,-(sp)
  4423.             moveq               #0,D0
  4424.             dc.w                $A82A
  4425.         EndM
  4426.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4427.         IMPORT_CFM_FUNCTION SGGetChannelSampleDescription
  4428.     ENDIF
  4429.  
  4430. ;
  4431. ; pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  4432. ;
  4433.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4434.         Macro
  4435.         _SGGetChannelDeviceList
  4436.             move.l              #$0008008F,-(sp)
  4437.             moveq               #0,D0
  4438.             dc.w                $A82A
  4439.         EndM
  4440.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4441.         IMPORT_CFM_FUNCTION SGGetChannelDeviceList
  4442.     ENDIF
  4443.  
  4444. ;
  4445. ; pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  4446. ;
  4447.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4448.         Macro
  4449.         _SGSetChannelDevice
  4450.             move.l              #$00040090,-(sp)
  4451.             moveq               #0,D0
  4452.             dc.w                $A82A
  4453.         EndM
  4454.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4455.         IMPORT_CFM_FUNCTION SGSetChannelDevice
  4456.     ENDIF
  4457.  
  4458. ;
  4459. ; pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  4460. ;
  4461.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4462.         Macro
  4463.         _SGSetChannelMatrix
  4464.             move.l              #$00040091,-(sp)
  4465.             moveq               #0,D0
  4466.             dc.w                $A82A
  4467.         EndM
  4468.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4469.         IMPORT_CFM_FUNCTION SGSetChannelMatrix
  4470.     ENDIF
  4471.  
  4472. ;
  4473. ; pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  4474. ;
  4475.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4476.         Macro
  4477.         _SGGetChannelMatrix
  4478.             move.l              #$00040092,-(sp)
  4479.             moveq               #0,D0
  4480.             dc.w                $A82A
  4481.         EndM
  4482.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4483.         IMPORT_CFM_FUNCTION SGGetChannelMatrix
  4484.     ENDIF
  4485.  
  4486. ;
  4487. ; pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  4488. ;
  4489.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4490.         Macro
  4491.         _SGGetChannelTimeScale
  4492.             move.l              #$00040093,-(sp)
  4493.             moveq               #0,D0
  4494.             dc.w                $A82A
  4495.         EndM
  4496.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4497.         IMPORT_CFM_FUNCTION SGGetChannelTimeScale
  4498.     ENDIF
  4499.  
  4500. ;
  4501. ; pascal ComponentResult SGChannelPutPicture(SGChannel c)
  4502. ;
  4503.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4504.         Macro
  4505.         _SGChannelPutPicture
  4506.             move.l              #$00000094,-(sp)
  4507.             moveq               #0,D0
  4508.             dc.w                $A82A
  4509.         EndM
  4510.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4511.         IMPORT_CFM_FUNCTION SGChannelPutPicture
  4512.     ENDIF
  4513.  
  4514. ;
  4515. ; pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  4516. ;
  4517.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4518.         Macro
  4519.         _SGChannelSetRequestedDataRate
  4520.             move.l              #$00040095,-(sp)
  4521.             moveq               #0,D0
  4522.             dc.w                $A82A
  4523.         EndM
  4524.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4525.         IMPORT_CFM_FUNCTION SGChannelSetRequestedDataRate
  4526.     ENDIF
  4527.  
  4528. ;
  4529. ; pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  4530. ;
  4531.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4532.         Macro
  4533.         _SGChannelGetRequestedDataRate
  4534.             move.l              #$00040096,-(sp)
  4535.             moveq               #0,D0
  4536.             dc.w                $A82A
  4537.         EndM
  4538.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4539.         IMPORT_CFM_FUNCTION SGChannelGetRequestedDataRate
  4540.     ENDIF
  4541.  
  4542. ;
  4543. ; pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  4544. ;
  4545.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4546.         Macro
  4547.         _SGChannelSetDataSourceName
  4548.             move.l              #$00060097,-(sp)
  4549.             moveq               #0,D0
  4550.             dc.w                $A82A
  4551.         EndM
  4552.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4553.         IMPORT_CFM_FUNCTION SGChannelSetDataSourceName
  4554.     ENDIF
  4555.  
  4556. ;
  4557. ; pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  4558. ;
  4559.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4560.         Macro
  4561.         _SGChannelGetDataSourceName
  4562.             move.l              #$00080098,-(sp)
  4563.             moveq               #0,D0
  4564.             dc.w                $A82A
  4565.         EndM
  4566.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4567.         IMPORT_CFM_FUNCTION SGChannelGetDataSourceName
  4568.     ENDIF
  4569.  
  4570. ;    calls from seqGrab to Channel
  4571. ;
  4572.  
  4573. ;
  4574. ; pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  4575. ;
  4576.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4577.         Macro
  4578.         _SGInitChannel
  4579.             move.l              #$00040180,-(sp)
  4580.             moveq               #0,D0
  4581.             dc.w                $A82A
  4582.         EndM
  4583.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4584.         IMPORT_CFM_FUNCTION SGInitChannel
  4585.     ENDIF
  4586.  
  4587. ;
  4588. ; pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  4589. ;
  4590.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4591.         Macro
  4592.         _SGWriteSamples
  4593.             move.l              #$00080181,-(sp)
  4594.             moveq               #0,D0
  4595.             dc.w                $A82A
  4596.         EndM
  4597.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4598.         IMPORT_CFM_FUNCTION SGWriteSamples
  4599.     ENDIF
  4600.  
  4601. ;
  4602. ; pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  4603. ;
  4604.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4605.         Macro
  4606.         _SGGetDataRate
  4607.             move.l              #$00040182,-(sp)
  4608.             moveq               #0,D0
  4609.             dc.w                $A82A
  4610.         EndM
  4611.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4612.         IMPORT_CFM_FUNCTION SGGetDataRate
  4613.     ENDIF
  4614.  
  4615. ;
  4616. ; pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  4617. ;
  4618.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4619.         Macro
  4620.         _SGAlignChannelRect
  4621.             move.l              #$00040183,-(sp)
  4622.             moveq               #0,D0
  4623.             dc.w                $A82A
  4624.         EndM
  4625.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4626.         IMPORT_CFM_FUNCTION SGAlignChannelRect
  4627.     ENDIF
  4628.  
  4629. ;    Dorky dialog panel calls
  4630. ;
  4631.  
  4632. ;
  4633. ; pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  4634. ;
  4635.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4636.         Macro
  4637.         _SGPanelGetDitl
  4638.             move.l              #$00040200,-(sp)
  4639.             moveq               #0,D0
  4640.             dc.w                $A82A
  4641.         EndM
  4642.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4643.         IMPORT_CFM_FUNCTION SGPanelGetDitl
  4644.     ENDIF
  4645.  
  4646. ;
  4647. ; pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  4648. ;
  4649.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4650.         Macro
  4651.         _SGPanelGetTitle
  4652.             move.l              #$00040201,-(sp)
  4653.             moveq               #0,D0
  4654.             dc.w                $A82A
  4655.         EndM
  4656.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4657.         IMPORT_CFM_FUNCTION SGPanelGetTitle
  4658.     ENDIF
  4659.  
  4660. ;
  4661. ; pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  4662. ;
  4663.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4664.         Macro
  4665.         _SGPanelCanRun
  4666.             move.l              #$00040202,-(sp)
  4667.             moveq               #0,D0
  4668.             dc.w                $A82A
  4669.         EndM
  4670.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4671.         IMPORT_CFM_FUNCTION SGPanelCanRun
  4672.     ENDIF
  4673.  
  4674. ;
  4675. ; pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  4676. ;
  4677.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4678.         Macro
  4679.         _SGPanelInstall
  4680.             move.l              #$000A0203,-(sp)
  4681.             moveq               #0,D0
  4682.             dc.w                $A82A
  4683.         EndM
  4684.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4685.         IMPORT_CFM_FUNCTION SGPanelInstall
  4686.     ENDIF
  4687.  
  4688. ;
  4689. ; pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, EventRecord *theEvent, short *itemHit, Boolean *handled)
  4690. ;
  4691.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4692.         Macro
  4693.         _SGPanelEvent
  4694.             move.l              #$00160204,-(sp)
  4695.             moveq               #0,D0
  4696.             dc.w                $A82A
  4697.         EndM
  4698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4699.         IMPORT_CFM_FUNCTION SGPanelEvent
  4700.     ENDIF
  4701.  
  4702. ;
  4703. ; pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  4704. ;
  4705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4706.         Macro
  4707.         _SGPanelItem
  4708.             move.l              #$000C0205,-(sp)
  4709.             moveq               #0,D0
  4710.             dc.w                $A82A
  4711.         EndM
  4712.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4713.         IMPORT_CFM_FUNCTION SGPanelItem
  4714.     ENDIF
  4715.  
  4716. ;
  4717. ; pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  4718. ;
  4719.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4720.         Macro
  4721.         _SGPanelRemove
  4722.             move.l              #$000A0206,-(sp)
  4723.             moveq               #0,D0
  4724.             dc.w                $A82A
  4725.         EndM
  4726.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4727.         IMPORT_CFM_FUNCTION SGPanelRemove
  4728.     ENDIF
  4729.  
  4730. ;
  4731. ; pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  4732. ;
  4733.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4734.         Macro
  4735.         _SGPanelSetGrabber
  4736.             move.l              #$00040207,-(sp)
  4737.             moveq               #0,D0
  4738.             dc.w                $A82A
  4739.         EndM
  4740.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4741.         IMPORT_CFM_FUNCTION SGPanelSetGrabber
  4742.     ENDIF
  4743.  
  4744. ;
  4745. ; pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  4746. ;
  4747.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4748.         Macro
  4749.         _SGPanelSetResFile
  4750.             move.l              #$00020208,-(sp)
  4751.             moveq               #0,D0
  4752.             dc.w                $A82A
  4753.         EndM
  4754.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4755.         IMPORT_CFM_FUNCTION SGPanelSetResFile
  4756.     ENDIF
  4757.  
  4758. ;
  4759. ; pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  4760. ;
  4761.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4762.         Macro
  4763.         _SGPanelGetSettings
  4764.             move.l              #$000C0209,-(sp)
  4765.             moveq               #0,D0
  4766.             dc.w                $A82A
  4767.         EndM
  4768.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4769.         IMPORT_CFM_FUNCTION SGPanelGetSettings
  4770.     ENDIF
  4771.  
  4772. ;
  4773. ; pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  4774. ;
  4775.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4776.         Macro
  4777.         _SGPanelSetSettings
  4778.             move.l              #$000C020A,-(sp)
  4779.             moveq               #0,D0
  4780.             dc.w                $A82A
  4781.         EndM
  4782.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4783.         IMPORT_CFM_FUNCTION SGPanelSetSettings
  4784.     ENDIF
  4785.  
  4786. ;
  4787. ; pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  4788. ;
  4789.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4790.         Macro
  4791.         _SGPanelValidateInput
  4792.             move.l              #$0004020B,-(sp)
  4793.             moveq               #0,D0
  4794.             dc.w                $A82A
  4795.         EndM
  4796.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4797.         IMPORT_CFM_FUNCTION SGPanelValidateInput
  4798.     ENDIF
  4799.  
  4800. ;
  4801. ; pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  4802. ;
  4803.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4804.         Macro
  4805.         _SGPanelSetEventFilter
  4806.             move.l              #$0008020C,-(sp)
  4807.             moveq               #0,D0
  4808.             dc.w                $A82A
  4809.         EndM
  4810.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4811.         IMPORT_CFM_FUNCTION SGPanelSetEventFilter
  4812.     ENDIF
  4813.  
  4814.  
  4815. ; ** Sequence Grab VIDEO CHANNEL Component Stuff **
  4816. ;    Video stuff
  4817. ;
  4818.  
  4819. SGCompressInfo            RECORD 0
  4820. buffer                     ds.l    1                ; offset: $0 (0)
  4821. bufferSize                 ds.l    1                ; offset: $4 (4)
  4822. similarity                 ds.b    1                ; offset: $8 (8)
  4823. reserved                 ds.b    1                ; offset: $9 (9)
  4824. sizeof                     EQU *                    ; size:   $A (10)
  4825.                         ENDR
  4826. VideoBottles            RECORD 0
  4827. procCount                 ds.w    1                ; offset: $0 (0)
  4828. grabProc                 ds.l    1                ; offset: $2 (2)
  4829. grabCompleteProc         ds.l    1                ; offset: $6 (6)
  4830. displayProc                 ds.l    1                ; offset: $A (10)
  4831. compressProc             ds.l    1                ; offset: $E (14)
  4832. compressCompleteProc     ds.l    1                ; offset: $12 (18)
  4833. addFrameProc             ds.l    1                ; offset: $16 (22)
  4834. transferFrameProc         ds.l    1                ; offset: $1A (26)
  4835. grabCompressCompleteProc  ds.l    1                ; offset: $1E (30)
  4836. displayCompressProc         ds.l    1                ; offset: $22 (34)
  4837. sizeof                     EQU *                    ; size:   $26 (38)
  4838.                         ENDR
  4839. ;
  4840. ; pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  4841. ;
  4842.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4843.         Macro
  4844.         _SGGetSrcVideoBounds
  4845.             move.l              #$00040100,-(sp)
  4846.             moveq               #0,D0
  4847.             dc.w                $A82A
  4848.         EndM
  4849.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4850.         IMPORT_CFM_FUNCTION SGGetSrcVideoBounds
  4851.     ENDIF
  4852.  
  4853. ;
  4854. ; pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  4855. ;
  4856.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4857.         Macro
  4858.         _SGSetVideoRect
  4859.             move.l              #$00040101,-(sp)
  4860.             moveq               #0,D0
  4861.             dc.w                $A82A
  4862.         EndM
  4863.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4864.         IMPORT_CFM_FUNCTION SGSetVideoRect
  4865.     ENDIF
  4866.  
  4867. ;
  4868. ; pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  4869. ;
  4870.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4871.         Macro
  4872.         _SGGetVideoRect
  4873.             move.l              #$00040102,-(sp)
  4874.             moveq               #0,D0
  4875.             dc.w                $A82A
  4876.         EndM
  4877.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4878.         IMPORT_CFM_FUNCTION SGGetVideoRect
  4879.     ENDIF
  4880.  
  4881. ;
  4882. ; pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  4883. ;
  4884.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4885.         Macro
  4886.         _SGGetVideoCompressorType
  4887.             move.l              #$00040103,-(sp)
  4888.             moveq               #0,D0
  4889.             dc.w                $A82A
  4890.         EndM
  4891.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4892.         IMPORT_CFM_FUNCTION SGGetVideoCompressorType
  4893.     ENDIF
  4894.  
  4895. ;
  4896. ; pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  4897. ;
  4898.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4899.         Macro
  4900.         _SGSetVideoCompressorType
  4901.             move.l              #$00040104,-(sp)
  4902.             moveq               #0,D0
  4903.             dc.w                $A82A
  4904.         EndM
  4905.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4906.         IMPORT_CFM_FUNCTION SGSetVideoCompressorType
  4907.     ENDIF
  4908.  
  4909. ;
  4910. ; pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  4911. ;
  4912.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4913.         Macro
  4914.         _SGSetVideoCompressor
  4915.             move.l              #$00120105,-(sp)
  4916.             moveq               #0,D0
  4917.             dc.w                $A82A
  4918.         EndM
  4919.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4920.         IMPORT_CFM_FUNCTION SGSetVideoCompressor
  4921.     ENDIF
  4922.  
  4923. ;
  4924. ; pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  4925. ;
  4926.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4927.         Macro
  4928.         _SGGetVideoCompressor
  4929.             move.l              #$00140106,-(sp)
  4930.             moveq               #0,D0
  4931.             dc.w                $A82A
  4932.         EndM
  4933.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4934.         IMPORT_CFM_FUNCTION SGGetVideoCompressor
  4935.     ENDIF
  4936.  
  4937. ;
  4938. ; pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  4939. ;
  4940.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4941.         Macro
  4942.         _SGGetVideoDigitizerComponent
  4943.             move.l              #$00000107,-(sp)
  4944.             moveq               #0,D0
  4945.             dc.w                $A82A
  4946.         EndM
  4947.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4948.         IMPORT_CFM_FUNCTION SGGetVideoDigitizerComponent
  4949.     ENDIF
  4950.  
  4951. ;
  4952. ; pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  4953. ;
  4954.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4955.         Macro
  4956.         _SGSetVideoDigitizerComponent
  4957.             move.l              #$00040108,-(sp)
  4958.             moveq               #0,D0
  4959.             dc.w                $A82A
  4960.         EndM
  4961.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4962.         IMPORT_CFM_FUNCTION SGSetVideoDigitizerComponent
  4963.     ENDIF
  4964.  
  4965. ;
  4966. ; pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  4967. ;
  4968.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4969.         Macro
  4970.         _SGVideoDigitizerChanged
  4971.             move.l              #$00000109,-(sp)
  4972.             moveq               #0,D0
  4973.             dc.w                $A82A
  4974.         EndM
  4975.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4976.         IMPORT_CFM_FUNCTION SGVideoDigitizerChanged
  4977.     ENDIF
  4978.  
  4979. ;
  4980. ; pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  4981. ;
  4982.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4983.         Macro
  4984.         _SGSetVideoBottlenecks
  4985.             move.l              #$0004010A,-(sp)
  4986.             moveq               #0,D0
  4987.             dc.w                $A82A
  4988.         EndM
  4989.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4990.         IMPORT_CFM_FUNCTION SGSetVideoBottlenecks
  4991.     ENDIF
  4992.  
  4993. ;
  4994. ; pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  4995. ;
  4996.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4997.         Macro
  4998.         _SGGetVideoBottlenecks
  4999.             move.l              #$0004010B,-(sp)
  5000.             moveq               #0,D0
  5001.             dc.w                $A82A
  5002.         EndM
  5003.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5004.         IMPORT_CFM_FUNCTION SGGetVideoBottlenecks
  5005.     ENDIF
  5006.  
  5007. ;
  5008. ; pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  5009. ;
  5010.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5011.         Macro
  5012.         _SGGrabFrame
  5013.             move.l              #$0002010C,-(sp)
  5014.             moveq               #0,D0
  5015.             dc.w                $A82A
  5016.         EndM
  5017.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5018.         IMPORT_CFM_FUNCTION SGGrabFrame
  5019.     ENDIF
  5020.  
  5021. ;
  5022. ; pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  5023. ;
  5024.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5025.         Macro
  5026.         _SGGrabFrameComplete
  5027.             move.l              #$0006010D,-(sp)
  5028.             moveq               #0,D0
  5029.             dc.w                $A82A
  5030.         EndM
  5031.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5032.         IMPORT_CFM_FUNCTION SGGrabFrameComplete
  5033.     ENDIF
  5034.  
  5035. ;
  5036. ; pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5037. ;
  5038.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5039.         Macro
  5040.         _SGDisplayFrame
  5041.             move.l              #$000A010E,-(sp)
  5042.             moveq               #0,D0
  5043.             dc.w                $A82A
  5044.         EndM
  5045.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5046.         IMPORT_CFM_FUNCTION SGDisplayFrame
  5047.     ENDIF
  5048.  
  5049. ;
  5050. ; pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  5051. ;
  5052.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5053.         Macro
  5054.         _SGCompressFrame
  5055.             move.l              #$0002010F,-(sp)
  5056.             moveq               #0,D0
  5057.             dc.w                $A82A
  5058.         EndM
  5059.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5060.         IMPORT_CFM_FUNCTION SGCompressFrame
  5061.     ENDIF
  5062.  
  5063. ;
  5064. ; pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  5065. ;
  5066.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5067.         Macro
  5068.         _SGCompressFrameComplete
  5069.             move.l              #$000A0110,-(sp)
  5070.             moveq               #0,D0
  5071.             dc.w                $A82A
  5072.         EndM
  5073.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5074.         IMPORT_CFM_FUNCTION SGCompressFrameComplete
  5075.     ENDIF
  5076.  
  5077. ;
  5078. ; pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  5079. ;
  5080.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5081.         Macro
  5082.         _SGAddFrame
  5083.             move.l              #$000E0111,-(sp)
  5084.             moveq               #0,D0
  5085.             dc.w                $A82A
  5086.         EndM
  5087.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5088.         IMPORT_CFM_FUNCTION SGAddFrame
  5089.     ENDIF
  5090.  
  5091. ;
  5092. ; pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5093. ;
  5094.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5095.         Macro
  5096.         _SGTransferFrameForCompress
  5097.             move.l              #$000A0112,-(sp)
  5098.             moveq               #0,D0
  5099.             dc.w                $A82A
  5100.         EndM
  5101.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5102.         IMPORT_CFM_FUNCTION SGTransferFrameForCompress
  5103.     ENDIF
  5104.  
  5105. ;
  5106. ; pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  5107. ;
  5108.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5109.         Macro
  5110.         _SGSetCompressBuffer
  5111.             move.l              #$00060113,-(sp)
  5112.             moveq               #0,D0
  5113.             dc.w                $A82A
  5114.         EndM
  5115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5116.         IMPORT_CFM_FUNCTION SGSetCompressBuffer
  5117.     ENDIF
  5118.  
  5119. ;
  5120. ; pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  5121. ;
  5122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5123.         Macro
  5124.         _SGGetCompressBuffer
  5125.             move.l              #$00080114,-(sp)
  5126.             moveq               #0,D0
  5127.             dc.w                $A82A
  5128.         EndM
  5129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5130.         IMPORT_CFM_FUNCTION SGGetCompressBuffer
  5131.     ENDIF
  5132.  
  5133. ;
  5134. ; pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  5135. ;
  5136.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5137.         Macro
  5138.         _SGGetBufferInfo
  5139.             move.l              #$00120115,-(sp)
  5140.             moveq               #0,D0
  5141.             dc.w                $A82A
  5142.         EndM
  5143.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5144.         IMPORT_CFM_FUNCTION SGGetBufferInfo
  5145.     ENDIF
  5146.  
  5147. ;
  5148. ; pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  5149. ;
  5150.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5151.         Macro
  5152.         _SGSetUseScreenBuffer
  5153.             move.l              #$00020116,-(sp)
  5154.             moveq               #0,D0
  5155.             dc.w                $A82A
  5156.         EndM
  5157.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5158.         IMPORT_CFM_FUNCTION SGSetUseScreenBuffer
  5159.     ENDIF
  5160.  
  5161. ;
  5162. ; pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  5163. ;
  5164.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5165.         Macro
  5166.         _SGGetUseScreenBuffer
  5167.             move.l              #$00040117,-(sp)
  5168.             moveq               #0,D0
  5169.             dc.w                $A82A
  5170.         EndM
  5171.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5172.         IMPORT_CFM_FUNCTION SGGetUseScreenBuffer
  5173.     ENDIF
  5174.  
  5175. ;
  5176. ; pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  5177. ;
  5178.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5179.         Macro
  5180.         _SGGrabCompressComplete
  5181.             move.l              #$000C0118,-(sp)
  5182.             moveq               #0,D0
  5183.             dc.w                $A82A
  5184.         EndM
  5185.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5186.         IMPORT_CFM_FUNCTION SGGrabCompressComplete
  5187.     ENDIF
  5188.  
  5189. ;
  5190. ; pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  5191. ;
  5192.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5193.         Macro
  5194.         _SGDisplayCompress
  5195.             move.l              #$00100119,-(sp)
  5196.             moveq               #0,D0
  5197.             dc.w                $A82A
  5198.         EndM
  5199.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5200.         IMPORT_CFM_FUNCTION SGDisplayCompress
  5201.     ENDIF
  5202.  
  5203. ;
  5204. ; pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  5205. ;
  5206.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5207.         Macro
  5208.         _SGSetFrameRate
  5209.             move.l              #$0004011A,-(sp)
  5210.             moveq               #0,D0
  5211.             dc.w                $A82A
  5212.         EndM
  5213.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5214.         IMPORT_CFM_FUNCTION SGSetFrameRate
  5215.     ENDIF
  5216.  
  5217. ;
  5218. ; pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  5219. ;
  5220.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5221.         Macro
  5222.         _SGGetFrameRate
  5223.             move.l              #$0004011B,-(sp)
  5224.             moveq               #0,D0
  5225.             dc.w                $A82A
  5226.         EndM
  5227.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5228.         IMPORT_CFM_FUNCTION SGGetFrameRate
  5229.     ENDIF
  5230.  
  5231.  
  5232. ;
  5233. ; pascal ComponentResult SGSetPreferredPacketSize(SGChannel c, long preferredPacketSizeInBytes)
  5234. ;
  5235.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5236.         Macro
  5237.         _SGSetPreferredPacketSize
  5238.             move.l              #$00040121,-(sp)
  5239.             moveq               #0,D0
  5240.             dc.w                $A82A
  5241.         EndM
  5242.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5243.         IMPORT_CFM_FUNCTION SGSetPreferredPacketSize
  5244.     ENDIF
  5245.  
  5246. ;
  5247. ; pascal ComponentResult SGGetPreferredPacketSize(SGChannel c, long *preferredPacketSizeInBytes)
  5248. ;
  5249.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5250.         Macro
  5251.         _SGGetPreferredPacketSize
  5252.             move.l              #$00040122,-(sp)
  5253.             moveq               #0,D0
  5254.             dc.w                $A82A
  5255.         EndM
  5256.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5257.         IMPORT_CFM_FUNCTION SGGetPreferredPacketSize
  5258.     ENDIF
  5259.  
  5260. ;
  5261. ; pascal ComponentResult SGSetUserVideoCompressorList(SGChannel c, Handle compressorTypes)
  5262. ;
  5263.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5264.         Macro
  5265.         _SGSetUserVideoCompressorList
  5266.             move.l              #$00040123,-(sp)
  5267.             moveq               #0,D0
  5268.             dc.w                $A82A
  5269.         EndM
  5270.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5271.         IMPORT_CFM_FUNCTION SGSetUserVideoCompressorList
  5272.     ENDIF
  5273.  
  5274. ;
  5275. ; pascal ComponentResult SGGetUserVideoCompressorList(SGChannel c, Handle *compressorTypes)
  5276. ;
  5277.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5278.         Macro
  5279.         _SGGetUserVideoCompressorList
  5280.             move.l              #$00040124,-(sp)
  5281.             moveq               #0,D0
  5282.             dc.w                $A82A
  5283.         EndM
  5284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5285.         IMPORT_CFM_FUNCTION SGGetUserVideoCompressorList
  5286.     ENDIF
  5287.  
  5288. ; ** Sequence Grab SOUND CHANNEL Component Stuff **
  5289.  
  5290. ;    Sound stuff
  5291. ;
  5292.  
  5293. ;
  5294. ; pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  5295. ;
  5296.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5297.         Macro
  5298.         _SGSetSoundInputDriver
  5299.             move.l              #$00040100,-(sp)
  5300.             moveq               #0,D0
  5301.             dc.w                $A82A
  5302.         EndM
  5303.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5304.         IMPORT_CFM_FUNCTION SGSetSoundInputDriver
  5305.     ENDIF
  5306.  
  5307. ;
  5308. ; pascal long SGGetSoundInputDriver(SGChannel c)
  5309. ;
  5310.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5311.         Macro
  5312.         _SGGetSoundInputDriver
  5313.             move.l              #$00000101,-(sp)
  5314.             moveq               #0,D0
  5315.             dc.w                $A82A
  5316.         EndM
  5317.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5318.         IMPORT_CFM_FUNCTION SGGetSoundInputDriver
  5319.     ENDIF
  5320.  
  5321. ;
  5322. ; pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  5323. ;
  5324.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5325.         Macro
  5326.         _SGSoundInputDriverChanged
  5327.             move.l              #$00000102,-(sp)
  5328.             moveq               #0,D0
  5329.             dc.w                $A82A
  5330.         EndM
  5331.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5332.         IMPORT_CFM_FUNCTION SGSoundInputDriverChanged
  5333.     ENDIF
  5334.  
  5335. ;
  5336. ; pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  5337. ;
  5338.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5339.         Macro
  5340.         _SGSetSoundRecordChunkSize
  5341.             move.l              #$00040103,-(sp)
  5342.             moveq               #0,D0
  5343.             dc.w                $A82A
  5344.         EndM
  5345.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5346.         IMPORT_CFM_FUNCTION SGSetSoundRecordChunkSize
  5347.     ENDIF
  5348.  
  5349. ;
  5350. ; pascal long SGGetSoundRecordChunkSize(SGChannel c)
  5351. ;
  5352.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5353.         Macro
  5354.         _SGGetSoundRecordChunkSize
  5355.             move.l              #$00000104,-(sp)
  5356.             moveq               #0,D0
  5357.             dc.w                $A82A
  5358.         EndM
  5359.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5360.         IMPORT_CFM_FUNCTION SGGetSoundRecordChunkSize
  5361.     ENDIF
  5362.  
  5363. ;
  5364. ; pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  5365. ;
  5366.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5367.         Macro
  5368.         _SGSetSoundInputRate
  5369.             move.l              #$00040105,-(sp)
  5370.             moveq               #0,D0
  5371.             dc.w                $A82A
  5372.         EndM
  5373.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5374.         IMPORT_CFM_FUNCTION SGSetSoundInputRate
  5375.     ENDIF
  5376.  
  5377. ;
  5378. ; pascal Fixed SGGetSoundInputRate(SGChannel c)
  5379. ;
  5380.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5381.         Macro
  5382.         _SGGetSoundInputRate
  5383.             move.l              #$00000106,-(sp)
  5384.             moveq               #0,D0
  5385.             dc.w                $A82A
  5386.         EndM
  5387.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5388.         IMPORT_CFM_FUNCTION SGGetSoundInputRate
  5389.     ENDIF
  5390.  
  5391. ;
  5392. ; pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  5393. ;
  5394.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5395.         Macro
  5396.         _SGSetSoundInputParameters
  5397.             move.l              #$00080107,-(sp)
  5398.             moveq               #0,D0
  5399.             dc.w                $A82A
  5400.         EndM
  5401.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5402.         IMPORT_CFM_FUNCTION SGSetSoundInputParameters
  5403.     ENDIF
  5404.  
  5405. ;
  5406. ; pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  5407. ;
  5408.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5409.         Macro
  5410.         _SGGetSoundInputParameters
  5411.             move.l              #$000C0108,-(sp)
  5412.             moveq               #0,D0
  5413.             dc.w                $A82A
  5414.         EndM
  5415.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5416.         IMPORT_CFM_FUNCTION SGGetSoundInputParameters
  5417.     ENDIF
  5418.  
  5419. ;
  5420. ; pascal ComponentResult SGSetAdditionalSoundRates(SGChannel c, Handle rates)
  5421. ;
  5422.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5423.         Macro
  5424.         _SGSetAdditionalSoundRates
  5425.             move.l              #$00040109,-(sp)
  5426.             moveq               #0,D0
  5427.             dc.w                $A82A
  5428.         EndM
  5429.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5430.         IMPORT_CFM_FUNCTION SGSetAdditionalSoundRates
  5431.     ENDIF
  5432.  
  5433. ;
  5434. ; pascal ComponentResult SGGetAdditionalSoundRates(SGChannel c, Handle *rates)
  5435. ;
  5436.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5437.         Macro
  5438.         _SGGetAdditionalSoundRates
  5439.             move.l              #$0004010A,-(sp)
  5440.             moveq               #0,D0
  5441.             dc.w                $A82A
  5442.         EndM
  5443.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5444.         IMPORT_CFM_FUNCTION SGGetAdditionalSoundRates
  5445.     ENDIF
  5446.  
  5447. ;    Text stuff
  5448. ;
  5449.  
  5450. ;
  5451. ; pascal ComponentResult SGSetFontName(SGChannel c, StringPtr pstr)
  5452. ;
  5453.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5454.         Macro
  5455.         _SGSetFontName
  5456.             move.l              #$00040100,-(sp)
  5457.             moveq               #0,D0
  5458.             dc.w                $A82A
  5459.         EndM
  5460.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5461.         IMPORT_CFM_FUNCTION SGSetFontName
  5462.     ENDIF
  5463.  
  5464. ;
  5465. ; pascal ComponentResult SGSetFontSize(SGChannel c, short fontSize)
  5466. ;
  5467.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5468.         Macro
  5469.         _SGSetFontSize
  5470.             move.l              #$00020101,-(sp)
  5471.             moveq               #0,D0
  5472.             dc.w                $A82A
  5473.         EndM
  5474.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5475.         IMPORT_CFM_FUNCTION SGSetFontSize
  5476.     ENDIF
  5477.  
  5478. ;
  5479. ; pascal ComponentResult SGSetTextForeColor(SGChannel c, RGBColor *theColor)
  5480. ;
  5481.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5482.         Macro
  5483.         _SGSetTextForeColor
  5484.             move.l              #$00040102,-(sp)
  5485.             moveq               #0,D0
  5486.             dc.w                $A82A
  5487.         EndM
  5488.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5489.         IMPORT_CFM_FUNCTION SGSetTextForeColor
  5490.     ENDIF
  5491.  
  5492. ;
  5493. ; pascal ComponentResult SGSetTextBackColor(SGChannel c, RGBColor *theColor)
  5494. ;
  5495.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5496.         Macro
  5497.         _SGSetTextBackColor
  5498.             move.l              #$00040103,-(sp)
  5499.             moveq               #0,D0
  5500.             dc.w                $A82A
  5501.         EndM
  5502.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5503.         IMPORT_CFM_FUNCTION SGSetTextBackColor
  5504.     ENDIF
  5505.  
  5506. ;
  5507. ; pascal ComponentResult SGSetJustification(SGChannel c, short just)
  5508. ;
  5509.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5510.         Macro
  5511.         _SGSetJustification
  5512.             move.l              #$00020104,-(sp)
  5513.             moveq               #0,D0
  5514.             dc.w                $A82A
  5515.         EndM
  5516.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5517.         IMPORT_CFM_FUNCTION SGSetJustification
  5518.     ENDIF
  5519.  
  5520. ;
  5521. ; pascal ComponentResult SGGetTextReturnToSpaceValue(SGChannel c, short *rettospace)
  5522. ;
  5523.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5524.         Macro
  5525.         _SGGetTextReturnToSpaceValue
  5526.             move.l              #$00040105,-(sp)
  5527.             moveq               #0,D0
  5528.             dc.w                $A82A
  5529.         EndM
  5530.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5531.         IMPORT_CFM_FUNCTION SGGetTextReturnToSpaceValue
  5532.     ENDIF
  5533.  
  5534. ;
  5535. ; pascal ComponentResult SGSetTextReturnToSpaceValue(SGChannel c, short rettospace)
  5536. ;
  5537.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5538.         Macro
  5539.         _SGSetTextReturnToSpaceValue
  5540.             move.l              #$00020106,-(sp)
  5541.             moveq               #0,D0
  5542.             dc.w                $A82A
  5543.         EndM
  5544.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5545.         IMPORT_CFM_FUNCTION SGSetTextReturnToSpaceValue
  5546.     ENDIF
  5547.  
  5548. ;    Music stuff
  5549. ;
  5550.  
  5551. ;
  5552. ; pascal ComponentResult SGGetInstrument(SGChannel c, ToneDescription *td)
  5553. ;
  5554.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5555.         Macro
  5556.         _SGGetInstrument
  5557.             move.l              #$00040100,-(sp)
  5558.             moveq               #0,D0
  5559.             dc.w                $A82A
  5560.         EndM
  5561.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5562.         IMPORT_CFM_FUNCTION SGGetInstrument
  5563.     ENDIF
  5564.  
  5565. ;
  5566. ; pascal ComponentResult SGSetInstrument(SGChannel c, ToneDescription *td)
  5567. ;
  5568.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5569.         Macro
  5570.         _SGSetInstrument
  5571.             move.l              #$00040101,-(sp)
  5572.             moveq               #0,D0
  5573.             dc.w                $A82A
  5574.         EndM
  5575.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5576.         IMPORT_CFM_FUNCTION SGSetInstrument
  5577.     ENDIF
  5578.  
  5579.  
  5580.  
  5581. sgChannelAtom                    EQU        'chan'
  5582. sgChannelSettingsAtom            EQU        'ctom'
  5583. sgChannelDescription            EQU        'cdsc'
  5584. sgChannelSettings                EQU        'cset'
  5585.  
  5586. sgDeviceNameType                EQU        'name'
  5587. sgUsageType                        EQU        'use '
  5588. sgPlayFlagsType                    EQU        'plyf'
  5589. sgClipType                        EQU        'clip'
  5590. sgMatrixType                    EQU        'mtrx'
  5591. sgVolumeType                    EQU        'volu'
  5592.  
  5593. sgPanelSettingsAtom                EQU        'ptom'
  5594. sgPanelDescription                EQU        'pdsc'
  5595. sgPanelSettings                    EQU        'pset'
  5596.  
  5597. sgcSoundCompressionType            EQU        'scmp'
  5598. sgcSoundSampleRateType            EQU        'srat'
  5599. sgcSoundChannelCountType        EQU        'schn'
  5600. sgcSoundSampleSizeType            EQU        'ssiz'
  5601. sgcSoundInputType                EQU        'sinp'
  5602. sgcSoundGainType                EQU        'gain'
  5603.  
  5604. sgcVideoHueType                    EQU        'hue '
  5605. sgcVideoSaturationType            EQU        'satr'
  5606. sgcVideoContrastType            EQU        'trst'
  5607. sgcVideoSharpnessType            EQU        'shrp'
  5608. sgcVideoBrigtnessType            EQU        'brit'
  5609. sgcVideoBlackLevelType            EQU        'blkl'
  5610. sgcVideoWhiteLevelType            EQU        'whtl'
  5611. sgcVideoInputType                EQU        'vinp'
  5612. sgcVideoFormatType                EQU        'vstd'
  5613. sgcVideoFilterType                EQU        'vflt'
  5614. sgcVideoRectType                EQU        'vrct'
  5615. sgcVideoDigitizerType            EQU        'vdig'
  5616.  
  5617. ;  UPP call backs 
  5618.  
  5619.  
  5620.     ENDIF ; __QUICKTIMECOMPONENTS__ 
  5621.  
  5622.